Re: one liner for for and if

Richard Lee wrote:
> #!/usr/bin/perl
> 
> use warnings;
> use strict;
> 
> my @[EMAIL PROTECTED]
 = qw/one two three four/;
> 
> print "$_\n" for @[EMAIL PROTECTED]
 last if "$_" eq q/three/;
> 
> 
> [root@[EMAIL PROTECTED]
 tmp]# ./!$
> ././././testthis2.pl
> syntax error at ././././testthis2.pl line 8, near "@[EMAIL PROTECTED]
 last "
> Execution of ././././testthis2.pl aborted due to compilation errors.
> 
> Can someone fix my last statement on this program?
> 
> I thought maybe this will work   but guess not... is there no easy way 
> to do this?
> 
> I don't want to do
> 
> for (@[EMAIL PROTECTED]
) {
>      if .......
>      }
> }
> 
> 
> just trying to see what the correct format is that for one liner that I 
> am trying

And you want to write it in one line why?

print "$_\n" for grep /one/ .. /three/, @[EMAIL PROTECTED]
 there's nothing wrong with

foreach (@[EMAIL PROTECTED]
) {
  print "$_\n";
  last if /three/;
}

Rob