return() aus eval()-Block geht nicht - #118266 (Allgemeines zu Perl)

murphy

2009-01-23 00:26

User since
2004-07-19
1776 Artikel
HausmeisterIn

Es geht auch ohne Warnung mit goto:

Code (perl): (dl )

use strict;
use warnings;

sub routine {
    print "test1\n";

    eval {
        goto OUT;
    };

    print "test2\n";

OUT:
    print "test3\n";
}

routine();

When C++ is your hammer, every problem looks like your thumb.