Hashes - #53438 (Allgemeines zu Perl)

BrownWolf

2003-08-16 21:26

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

Hallo,

habe das Skript doch noch gerettet ....
Nun habe ich aber nen andres Problem *G*

Also ich lese mit einer for Schleife mehrere Dateien aus.

Code (perl): (dl )

foreach my &#36lines(@log) {
if(&#36lines =~ /\"(.+)<.+><(.+)><>\" entered the game/) {
my(&#36name,&#36wonid) = (&#361,&#362);   

}
}

Jetzt ist $name in $1 gespeichert und die WONID in $2.
Nun kann es passieren das alles hundertmal im Log steht:

Code: (dl )

"BrownWolf<..><8957333><>" entered the game
"Bla<..><8374444><>" entered the game
"Barbara<..><885333><>" entered the game
"BrownWolf<..><8957333><>" entered the game

usw ...

Wenn man jetzt den Nick ändert hat man aber noch dieselbe WONID. Also würde später im Log stehen:

Code: (dl )

"Brown<..><8957333><>" entered the game

Ich möchte also alle Nicks speichern die die WONID 8957333 haben. Ich hätte an:

Code (perl): (dl )

1
2

my %nicks;
&#36nicks{&#36wonid}[0] = &#36name;

etc. gedacht blos wie soll ich dann den nächsten Nick (der nicht wieder BrownWolf sein darf sondern Brown) auf Element 1 speichern.

Hoffe ich versteht was ich meine =/

BrownWolf

PS: Dubu du hast schon recht ... werde demnächst auch beim Programmieren die " weglassen ;)\n\n

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;