Opened by BrownWolf at 2003-09-30 03:16
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Hallo,
ich hoffe bei diesem Problem könnt ihr mir helfen.
Also ich habe eine .txt Datei mit folgendem Inhalt:
Mein Code:
1. Ich möchte @read nach dem Timestamp in $read[0]
sortieren.
2. Im neuen Array muss der Timestamp mit der getDate Methode in ein Datum umgewandelt werden.
3. Ich möchte gerne im split 2 und 3 was ersetzen , blos das geht nicht weil ich dann ne Error Message bekomme:
Cant modify list slice in substitution ....
Geht das auch einfacher ? :)
BrownWolf
ich hoffe bei diesem Problem könnt ihr mir helfen.
Also ich habe eine .txt Datei mit folgendem Inhalt:
Code: (dl
)
Time|Nick|Subject|Text
Mein Code:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13
open(DAT,"<./datei.txt") || die $!; my @read = <DAT>; close(DAT); @read = map { getDate((split /\|/, $_)[0])."|". (split /\|/, $_)[1]."|". (split /\|/, $_)[2]."|". (split /\|/, $_)[3] } sort { (split /\|/, $b)[0] <=> (split /\|/, $a)[0] } @read;
1. Ich möchte @read nach dem Timestamp in $read[0]
sortieren.
2. Im neuen Array muss der Timestamp mit der getDate Methode in ein Datum umgewandelt werden.
3. Ich möchte gerne im split 2 und 3 was ersetzen , blos das geht nicht weil ich dann ne Error Message bekomme:
Cant modify list slice in substitution ....
Geht das auch einfacher ? :)
BrownWolf
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;