Re: error message in the end of the array looping?

in reply to error message in the end of the array looping?

Use the first() function from List:Util .

print +(first { $_ eq 'correct_value' } @arr) || 'not found';

Comment on Re: error message in the end of the array looping?

Replies are listed 'Best First'.
Re^2: error message in the end of the array looping? by dank (Initiate) on Jun 01, 2006 at 07:02 UTC
Alternatively, if you can get your hands on it, List::MoreUtils has a bunch of small, but useful subroutines. ----------------------------- `use List::MoreUtils qw(any); ... print "Success" if any { $_ eq "correct_value" } @hash{@array};` [download] ----------------------------- Notes: 1 - note the use of a hash slice; it takes some getting used to, having a @ instead of a % in front. 2 - please use something more meaningful than %hash or @array as var names in your actual code :)	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: error message in the end of the array looping?
by dank (Initiate) on Jun 01, 2006 at 07:02 UTC

Alternatively, if you can get your hands on it, List::MoreUtils has a bunch of small, but useful subroutines.
-----------------------------

use List::MoreUtils qw(any);

...

print "Success" if any { $_ eq "correct_value" } @hash{@array};
[download]

-----------------------------
Notes:
1 - note the use of a hash slice; it takes some getting used to, having a @ instead of a % in front.
2 - please use something more meaningful than %hash or @array as var names in your actual code :)

[reply]
[d/l]

In Section Seekers of Perl Wisdom