Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: 'Dynamic scoping' of capture variables ($1, $2, etc.) (localization of captures in recursions is buggy!)

by LanX (Canon)
on Dec 16, 2012 at 21:03 UTC ( #1009094=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      DB<112> sub tst2 { 'a' =~ /(\w)/; $1. tst(). $1 }
     => 0
    ...
      DB<114> 'c' =~ /(\w)/; print $1. tst2(). $1
     => 1
    cabac
    
  2. or download this
      DB<123> sub delchar { $x =~ s/(\w)// ? $1 . delchar() . $1 : "x"  } 
     => 0
     
    ...
     
      DB<125> delchar()
     => "cccxccc"
    
  3. or download this
      DB<138> sub del1 { $x =~ s/(\w)// ? $1 . del2() . $1 : "x"  } 
     => 0
    ...
     
      DB<142> $x='abc'; del1()
     => "abcxcba"
    
  4. or download this
      DB<111> sub del2 { $x =~ s/(\w)// ? $1 . del1() . $1 : "-"  } 
     => 0
    ...
     
      DB<113> $x='abcd'; del1()
     => "cdcd-dcdc"
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2014-12-21 02:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

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





    Results (101 votes), past polls