one liner for for and if

[Richard Lee]

#!/usr/bin/perl

use warnings;
use strict;

my @array = qw/one two three four/;

print "$_\n" for @array last if "$_" eq q/three/;

[root@server tmp]# ./!$
././././testthis2.pl
syntax error at ././././testthis2.pl line 8, near "@array 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 (@array) {
if .......
}
}

just trying to see what the correct format is that for one liner that I
am trying

thanks in advance.

[Yitzchok Good]

if ("$_" eq q/three/) {print "$_\n" for @array last};

[Rob Dixon]

Yitzchok Good wrote:
>
> if ("$_" eq q/three/) {print "$_\n" for @array last};

That won't even compile. Please don't publish nonsense.

Rob

[Rob Dixon]

And you want to write it in one line why?

print "$_\n" for grep /one/ .. /three/, @array;

But there's nothing wrong with

foreach (@array) {
print "$_\n";
last if /three/;
}

Rob

[Richard Lee]

use warnings;
use strict;

print "$_\n" for grep /three/, @array;

[root@server tmp]# !$
./test5.pl
three

this works well. However, that goes through entire array.. right?
So there is no true way to squeeze in the ' last ' .. ?

main reason is to see if it's doable(I like some of perl's idioms) and
whether it is possible
The other reason is because I have a big array which I have to look in
by 3 different steps
and I wanted to avoid 3 foreach loop in a row which key depends on
preceding code and wanted to just go
---- simplied version----

my $something = $_ for @array last if "$_" eq q/three/;
my $something1 = $_ for @array last if "$_" eq q/$something/;
my $something2 = $_ for @array last if "$_" eq q/$something1/;

Anyway, I will try your code and report back.

thank you.