GwenDragon+2007-10-18 16:32:07--

Code: (dl )

print grep(/$ARGV[0]/,@arr) ? 'JAAAA' : 'och nee :(';

print grep $ARGV[0] eq $_, @arr ? 'JAAAA' : 'och nee :(';

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem