Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Perl Idioms Explained - my $count = () = /.../g

by truedfx (Monk)
on Feb 07, 2006 at 15:27 UTC ( #528530=note: print w/ replies, xml ) Need Help??


in reply to Perl Idioms Explained - my $count = () = /.../g

Just to have it mentioned: another way to do it is given in perldoc -f scalar:

#!perl -l my $str = "here are some words"; my $count = @{[ $str =~ /\S+/g ]}; print $count;
Personally, I think this makes the meaning clearer, but I'm sure others may disagree.


Comment on Re: Perl Idioms Explained - my $count = () = /.../g
Select or Download Code
Re^2: Perl Idioms Explained - my $count = () = /.../g
by japhy (Canon) on Feb 07, 2006 at 15:40 UTC
    I'd say "but that builds up and then destroys an array referencce", but I don't know which takes more time, and then I'd say "benchmark it", but this would be a case of micro-optimizing. So I will agree with your intent: use whichever construct is clearer to you.

    Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
    How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://528530]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (9)
As of 2014-11-28 00:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (191 votes), past polls