Hashes - #53429 (Allgemeines zu Perl)

BrownWolf

2003-08-16 05:50

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Also es geht darum so ne Art Stats (Logauswerter) für Counterstrike zu schreiben. Das mit den Hashes funktioniert jetzt. Nun noch eine Frage ... wenn jetzt ne Variable nicht definiert ist dann steht im Log ne Error Message. Desshalb muss ich den Wert 0 zuweisen falls kein anderer angegeben ist.

Code (perl): (dl )

if(!defined &#36knifed) { &#36knifed = 0; }
if(!defined &#36elite) { &#36elite = 0; }
if(!defined &#36g3sg1) { &#36g3sg1 = 0; }
if(!defined &#36m249) { &#36m249 = 0; }
if(!defined &#36mac10) { &#36mac10 = 0; }
if(!defined &#36sg550) { &#36sg550 = 0; }
if(!defined &#36scout) { &#36scout = 0; }
if(!defined &#36ump45) { &#36ump45 = 0; }
if(!defined &#36sg552) { &#36sg552 = 0; }
if(!defined &#36usp) { &#36usp = 0; }
if(!defined &#36tmp) { &#36tmp = 0; }
if(!defined &#36p228) { &#36p228 = 0; }
if(!defined &#36mp5navy) { &#36mp5navy = 0; }
if(!defined &#36m3) { &#36m3 = 0; }
if(!defined &#36glock18) { &#36glock18 = 0; }
if(!defined &#36granate) { &#36granate = 0; }
if(!defined &#36knife) { &#36knife = 0; }
if(!defined &#36ak47) { &#36ak47 = 0; }
if(!defined &#36deagle) { &#36deagle = 0; }
if(!defined &#36m4a1) { &#36m4a1 = 0; }
if(!defined &#36aug) { &#36aug = 0; }
if(!defined &#36awp) { &#36awp = 0; }
if(!defined &#36p90) { &#36p90 = 0; }
if(!defined &#36shotgun) { &#36shotgun = 0; }
if(!defined &#36ctjoin) { &#36ctjoin = 0; }
if(!defined &#36terrorjoin) { &#36terrorjoin = 0; }

Kann man das auch irgendwie kürzer schreiben ?
Also nicht jedesmal ne if Abfrage.

Iss mir grad noch so eingefallen =)

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;