Thread Perl TK - Programm
(34 answers)
Opened by betterworld at 2003-10-26 00:14
@strat Danke ... :)
@Crian Naja vielleicht nen Jein ;) Das mit dem int(rand(xx))+1 hab ich nun kapiert. Das reicht mir auch. Edit: @strat Welches davon ? Seh da kein PAR Modul.\n\n <!--EDIT|BrownWolf|1067274354--> 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; |