Codeverschlüsselungstechnik - #79911 (Allgemeines zu Perl)

BrownWolf

2004-02-11 00:16

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

lol ... ich hab gar nicht dran gedacht das wenn man unten die Subroutine einfach wegnimmt das Programm doch ausgeführt wird. Muss man sich was anderes einfallen lassen. Nur mit dem caller() ist praktisch.

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;