Thread return() Ebene bestimmen (4 answers)
Opened by bianca at 2015-09-26 11:11

bianca
 2015-09-26 11:11
#182396 #182396
User since
2009-09-13
6978 Artikel
BenutzerIn

user image
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/usr/bin/perl
use strict;
use warnings;

my $sub1 = sub {
    my $sub2 = sub {
        if (1==1) { return; }
    };
    $sub2->();
    print "zweiter Level\n";
};
$sub1->();
print "ganz oben\n";
exit();
bringt:
Quote
d:\perl>perl test.pl
zweiter Level
ganz oben


Hab ich eine Chance, in der $sub2 ein return nach ganz oben zu machen, das die $sub1 überspringt?
Gewünschte Ausgabe soll dann sein:
Quote
d:\perl>perl test.pl
ganz oben


Das möchte ich benutzen, um bei Fehlerfällen in der $sub2 nach ganz oben zurück zu springen.
10 print "Hallo"
20 goto 10

View full thread return() Ebene bestimmen