Re: Is for the wrong choice here?

[Masem]

in reply to Is 'for' the wrong choice here?

grep is better here:

if ( grep { /($author)/i } @admin_users ) { 
    print "$blah\n";
} else {
    print "$uber_blah\n";
}

Update -- Should be matching on $author, not $admin_user (the value from the loop in question).

-----------------------------------------------------
Dr. Michael K. Neylon - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain
"I can see my house from here!"
It's not what you know, but knowing how to find it if you don't know that's important

[jerrygarciuh]

Well, that works better than what I had except that it apparently tests true every time. Every iteration is printing $blah even when $author is not a match. Advice?
TIA
jg
_____________________________________________________
If it gets a little bit out of hand sometimes, don't let it fool you into thinkin' you don't care.TvZ

[jerrygarciuh]

This code gets the same results:


if ( grep { /($admin_user)/i } $author ) {
    print "$blah ";
} else {
    print "$uber_blah";
}


TIA
jg
_____________________________________________________
If it gets a little bit out of hand sometimes, don't let it fool you into thinkin' you don't care.TvZ

[grep]

This should work a little better

#!/usr/bin/perl -w
use strict;
my $author = 'grep';
my @admin_users = qw/test that grep out/;


if ( grep { /^$author$/i } @admin_users ) {
    print "blah\n";
} else {
    print "uber_blah\n";
}



grep

grep> cd pub grep> more beer