Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: The new automated poll-producing code...

by premchai21 (Curate)
on Nov 18, 2002 at 04:49 UTC ( #213657=note: print w/replies, xml ) Need Help??


in reply to The new automated poll-producing code...

... exact equivalency in the distribution, 65 for each option? Yikes.
  • Comment on Re: The new automated poll-producing code...

Replies are listed 'Best First'.
Re: Re: The new automated poll-producing code...
by tretin (Friar) on Nov 18, 2002 at 13:27 UTC
    The poll system better keep its dirty hands off my sisters. I have heard things that I care not to mention about this polling system, and frankly, I don't want it near any female members of my family.


    work it harder make it better do it faster makes us stronger more than ever hour after our work is never over.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://213657]
help
Chatterbox?
[tobyink]: You can use grep { $_ =~ /.*$in.*/; } @my_modules but why not stick to grep(/.*$in.*/, @my_modules)? (The latter is faster.)
[shmem]: Lady_Aleena, in the first example grep evaluates the result from grep and if true, returns $_. In the second, it always returns $_
[shmem]: ..the result from the pattern match
[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;

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