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";
}

[download]

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

-----------------------------------------------------
Dr. Michael K. Neylon - mneylon-pm@masemware.com || "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

Replies are listed 'Best First'.
Re: Re: Is for the wrong choice here?
by grep (Monsignor) on Jan 18, 2002 at 22:15 UTC
    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";
}

    [download]


    grep
    grep> cd pub
    grep> more beer
[reply]
[d/l]
Re: Re: Is for the wrong choice here?
by jerrygarciuh (Curate) on Jan 18, 2002 at 22:04 UTC
    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
[reply]
[d/l]
      This code gets the same results: 
      if ( grep { /($admin_user)/i } $author ) {
    print "$blah ";
} else {
    print "$uber_blah";
}

      [download]

      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
[reply]
[d/l]

In Section Seekers of Perl Wisdom