Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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.


Comment on Re: use of $*
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2014-12-29 09:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (185 votes), past polls