Opened by BrownWolf at 2003-08-27 02:16
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Hi Leute,
darf ich mal mein Perl Script (ID Cards) hochladen.
Ihr schaut euch dann den Code an und lasst eure Meinung ab.
Ihr könnt mir sagen was ich verbessern kann wenn ich progge oder falsch mache.
Hättet ihr dazu Lust ? :)
darf ich mal mein Perl Script (ID Cards) hochladen.
Ihr schaut euch dann den Code an und lasst eure Meinung ab.
Ihr könnt mir sagen was ich verbessern kann wenn ich progge oder falsch mache.
Hättet ihr dazu Lust ? :)
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;