Leser: 2
7 Einträge, 1 Seite |
use strict;
eval 'print 1';
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;
1 2 3 4
#!/usr/bin/perl use strict; # verneigen gen Osten... <!--pod1--><a href="http://www.perldoc.com/perl5.8.0/pod/strict.html" target="_blank">perldoc <!--pod2-->strict<!--pod3--></a><!--pod4--> use warnings; # Du wurdest gewarnt! <!--pod1--><a href="http://www.perldoc.com/perl5.8.0/pod/warnings.html" target="_blank">perldoc <!--pod2-->warnings<!--pod3--></a><!--pod4--> eval 'print 1'; # macht in diesem Board keine Probleme.
7 Einträge, 1 Seite |