Thread Fortschrittsbalken: Perl-TK
(39 answers)
Opened by Gast at 2003-09-02 12:59
Das schon, aber ich hatte in seinem Fall nicht das Gefühl, daß er etwas lernen will. Ansonsten fände ich das auch in Ordnung.
http://hamburg.pm.org
jeden 2. mittwoch im monat -- #!/usr/bin/perl -w $l=join('',map chr,(116,110,105,114,112))if$^T; !!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1; for(@_){eval reverse($l)."'"._(_(_($_))).' \''} sub _{$_=~y+a-z+n-za-m+and pop} |