Opened by SirLant at 2003-08-26 20:34
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Hmm hatte ich wohl überlesen.
Dachte ich war der einzige der den Fehler gefunden hat.
Aber gewöhn dir trotzdem das an mit dem <<"EOT";
Das man in jeder Zeile print "<td>bla</td>"; schreibt kenne ich von PHP. War richtig glücklich als ich das EOT , EOF , EOA etc. in Perl gefunden hab. Weiss nich wie mans nennt :)
Gruß BrownWolf
Dachte ich war der einzige der den Fehler gefunden hat.
Aber gewöhn dir trotzdem das an mit dem <<"EOT";
Das man in jeder Zeile print "<td>bla</td>"; schreibt kenne ich von PHP. War richtig glücklich als ich das EOT , EOF , EOA etc. in Perl gefunden hab. Weiss nich wie mans nennt :)
Gruß 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;