Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: How does 'goto LABEL' search for its label? (do-blocks)

by LanX (Canon)
on Jan 17, 2013 at 18:50 UTC ( #1013854=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    > perl -MO=Deparse -E'if (1) { label: say 1;}; goto label'
    BEGIN {
    ...
        label: say 1
    };
    goto label;
    
  2. or download this
    perl -wE'do { label: say 1;}; goto label'
    
  3. or download this
    perl -wE'my $x=0;do { label: say $x++; die if $x>1}; goto label'
    0
    1
    Died at -e line 1.
    
  4. or download this
    [davido]: LanX: perl -E 'goto IN; do{ IN: say "Hello world\n";};' does
    + produce the warning on 5.16.2.
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (8)
As of 2014-09-19 20:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (145 votes), past polls