Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

(jcwren) Re: A Beginner's Guide to Using Mail::Audit and Mail::SpamAssassin

by jcwren (Prior)
on Dec 19, 2001 at 10:11 UTC ( #133027=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download



    Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Node Status?
    node history
    Node Type: note [id://133027]
    help
    Chatterbox?
    [Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
    [shmem]: so in the second example grep returns all true elements of the list passed
    [Lady_Aleena]: Okay, so grep BLOCK is not like map BLOCK where something might need to be returned at the end.
    [tobyink]: grep { $_ =~ /.*$in.*/; } @my_modules should work just fine. The problem is that you were adding on ;$_ at the end of the block. Why were you doing that?
    [Lady_Aleena]: tobyink, I was thinking map.
    [tobyink]: Something does need to be returned at the end not $_ though. You need to return (something that will be evaluated as) a boolean.
    [Lady_Aleena]: Here is a longish map I did in the same script. my @my_modules = map { my $file = $_; $file =~ s/$module_director y(.+)\.pm/$1/; $file =~ s/\//::/g; $file; } @files;
    [Lady_Aleena]: I spent half an hour trying to figure out why map was rewriting @files.
    [tobyink]: If you like map you can do map { ($_ =~ /.*$in.*/) ? $_ : () } @my_modules and it will work just the same. grep is neater though.
    [Lady_Aleena]: tobyink, I'll keep the grep as is. Thanks everyone!

    How do I use this? | Other CB clients
    Other Users?
    Others perusing the Monastery: (9)
    As of 2017-05-27 07:44 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?