Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re: Perl Idioms Explained - @ary = $str =~ m/(stuff)/g

by bart (Canon)
on Sep 17, 2003 at 10:15 UTC ( #292089=note: print w/replies, xml ) Need Help??

in reply to Perl Idioms Explained - @ary = $str =~ m/(stuff)/g

$num_matches_stuff = $str =~ m/(stuff)/g; @all_the_matches = $str =~ m/(stuff)/g;
In scalar context we get the count of the matches, in array context we get the matches.
No, the former just is not right. You haven't actually tried it, have you?
$str = "stuff stuff stuff"; $num_matches_stuff = $str =~ m/(stuff)/g; print $num_matches_stuff;

The /g modifier in scalar context is very special. It is intended to be used in a loop, something like this:

$str = "stuff stuff stuff"; while($str =~ m/(stuff)/g) { print "Got one!\n"; }
Got one!
Got one!
Got one!
So in scalar context, it will match at most once at a time — next time around, it'll continue where it left off last time.

Therefore, the returned valued of //g when used in scalar context is either 0, or 1.

Replies are listed 'Best First'.
Re: Re: Perl Idioms Explained - @ary = $str =~ m/(stuff)/g
by tachyon (Chancellor) on Sep 17, 2003 at 13:15 UTC

    Hmm it is of course as you say. I must have got myself confused with the behaviour of s///.

    $data = 'stuff stuff stuff'; $num = $data =~ s/(stuff)//g; print $num, $/; __DATA__ 3

    You can force it to do as I said by cheating thusly....

    $num = () = 'stuff stuff stuff' =~ m/(stuff)/g; print $num; __DATA__ 3




Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://292089]
[QM]: choroba, who or what are you hiring?
[choroba]: Perl programmers

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (9)
As of 2017-06-29 10:12 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (658 votes). Check out past polls.