Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Re: use of $*

by ikegami (Pope)
on Aug 01, 2014 at 11:50 UTC ( #1095889=note: print w/replies, xml ) Need Help??

in reply to use of $*

It was the same as using /m on all your match and substitution operators, except it overrode instructions to turn /m off.

For example, qr/foo$/ shouldn't match "foo\nbar\n" even if it's used as /$re/m.

$ perl5010 -le' $re = qr/foo$/; print $re; print "foo\nbar\n" =~ /$re/m ?1:0 ' (?-xism:foo$) # -m: Turn /m off. 0

But it did before 5.10

$ perl5008009 -le' $re = qr/foo$/; print $re; print "foo\nbar\n" =~ /$re/m ?1:0 ' (?-xism:foo$) 1 # Matched as if /m was on for the subpattern.

This was fixed, but there was no way of fixing $* which had the same error.

$ perl5008009 -le' $re = qr/foo$/; print $re; local $* = 1; print "foo\nbar\n" =~ /$re/ ?1:0 ' (?-xism:foo$) 1

So it was dropped.

Replies are listed 'Best First'.
Re^2: use of $*
by millan123 (Initiate) on Aug 01, 2014 at 12:49 UTC
    can you pls let me know what does this code do?
    $* = 1
      See Re: use of $* for an answer.
      لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1095889]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2018-02-25 22:25 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (315 votes). Check out past polls.