Opened by Max at 2011-01-24 13:39
User since
2008-01-27
367 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-01-27
367 Artikel
BenutzerIn
grep defined && length, split /\s+|(\(.*?\))/, $zeile sollte funktionieren.
edit: da fehlte wohl noch ein length().
MfG
Last edited: 2011-01-24 15:37:01 +0100 (CET)
edit: da fehlte wohl noch ein length().
MfG
Last edited: 2011-01-24 15:37:01 +0100 (CET)
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'