The perl equivalent...

Ateo · 04-08-2005, 05:08 PM

In php, when I set an array with multiple values, I can compare a string to that array for a result. Example:

Code:

<?php

$value =  array("value1", "value2", "value3", "value4", "value5");
$string = "value3";

if ( in_array($string, $value) )
{
     echo "$string exists in array";
}
else
{
     echo "$string does not exist in array";
}

?>

For the life of me, I cannot figure out the perl equivalent. I have the O'Reilly Programming Perl book in my hands but.... still can't find the equivalent. Currently, I am using for loops as I was not able to get a foreach loop running correctly, but that's a different issue.

Anyone able to assist?

Thanks

auximini · 04-08-2005, 05:29 PM

You could do something like

Code:

if (grep {/value/}, @array) {
    print "OK";
}

or

Code:

foreach $element (@array) {
    if ($element eq $value) {
        print "OK";
    }
}

hope that helps

Ateo · 04-08-2005, 06:26 PM

I ended up using:

Code:

if ( grep $var1, @array )
{
     print "yay\n";
}

Thanks !

auximini · 04-08-2005, 06:33 PM

Be careful with the grep, though. I would add an ^ to the beginning and $ to the end to anchor the variable down. Otherwise you might end up with this:

Code:

grep 'hi', 'this'

when you are only looking for hi

so you would need to do

Code:

grep '^hi$', 'this'

and it will return false.

(My syntax is probably wrong.. it's been a while since I used grep in perl..)

Ateo · 04-09-2005, 02:23 AM

I was wondering why I kept getting mixed results. Sometimes it would work, sometimes it wouldn't. Here's my final code:

Code:

foreach $folder ($imap->folders)
{
	if ( !grep /^$folder$/, @excludes)
	{
		$new = $new + $imap->unseen_count($folder);
	}
}

It's a script for my superkaramba theme for displaying total unread messages in all my folder EXCEPT those in the @excludes array.... Adding the ^ and $ seemed to do the trick.

Thanks again!