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

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

by LanX (Saint)
on Jan 17, 2013 at 18:50 UTC ( [id://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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1013854]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (5)
As of 2024-03-29 13:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found