Re: one liner for for and if

>>>>> "YG" == Yitzchok Good <anexpert@[EMAIL PROTECTED]
> writes:

  YG> if ("$_" eq q/three/) {print "$_\n" for @[EMAIL PROTECTED]
 last};

it helps if you quote SOME of the previous post for context.

that does not do what the OP asked for. that last is not proper syntax
either.

this is the original code:

my @[EMAIL PROTECTED]
 = qw/one two three four/;
print "$_\n" for @[EMAIL PROTECTED]
 last if "$_" eq q/three/;

the first thing to note is that you can have only one statement modifier
and that has 'for' and 'if' so it is illegal.

also the quotes on $_ are useless and possibly a bug waiting to happen.


and don't use q// unless you need to. it is distracting otherwise. there
are no quote chars in that string so normal single quotes are fine.

trying to make that into a legal one liner is not a good idea. there is
too much going on and it will be cluttered. but here is one way:

print "$_\n" && $_ eq 'three' && last for @[EMAIL PROTECTED]
 ;

uri

-- 
Uri Guttman  ------  uri@[EMAIL PROTECTED]
  --------  http://www.sysarch.com
--
-----  Perl Code Review , Architecture, Development, Training, Sup****t
------
--------- Free Perl Training --- http://perlhunter.com/college.html
---------
---------  Gourmet Hot Cocoa Mix  ----  http://bestfriendscocoa.com
---------