Comparing the first element of an array with an array

lampros21_7 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Comparing the first element of an array with an array by holli (Abbot) on Jul 28, 2005 at 13:33 UTC
`@found_urls = grep { $_ eq $links[0] } @visited_urls;` [download] holli, /regexed monk/	[reply] [d/l]
Re: Comparing the first element of an array with an array by sh1tn (Priest) on Jul 28, 2005 at 13:42 UTC
`@urls{@visited_urls} = (); exists $urls{$links[0]} and print "found\n";` [download]	[reply] [d/l]
Re: Comparing the first element of an array with an array by Zed_Lopez (Chaplain) on Jul 28, 2005 at 17:37 UTC
`use List::Util qw(first); $links0_in_visited_urls = first { $_ eq $links[0] } @visited_urls` [download]	[reply] [d/l]
Re: Comparing the first element of an array with an array by lampros21_7 (Scribe) on Jul 29, 2005 at 00:09 UTC
Apologies for this but i need this in an if statement so that if the URL already exists in the array then do something. The methods you have given me put the URL in another array which i dont really want and i dont think the statemnts you give me can be used in an if statement. Thanks for your patience	[reply]
Re^2: Comparing the first element of an array with an array by jolande (Initiate) on Jul 29, 2005 at 01:39 UTC
Grep returns the numer of items the code was true for when called in scalar context, so you can pretty much just use holli's code in an if statment `if ((grep {$_ eq $links[0] } @visited_urls) > 0) { print "URL found\n"; } else { print "URL not found\n"; }` [download]	[reply] [d/l]