"JupiterHost.Net" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > > > This is an equivalent program: > > > > #!/usr/bin/perl > > print "@ARGV\n"; > > print "$_\n" for grep length($_) <= 3, @ARGV; > > Ha Ha even better, nice one Bob! > > Perl is just way to awesome :)
You can even get rid of the for: print map "\t$_\n", @ARGV; print map "$_\n", grep length() <= 3, @ARGV; Todd W. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
