perl中eval与die

perl中使用eval捕获错误，在eval中使用die和在eval外使用die的区别，举个小例子咯。

#!/usr/bin/perl
3 
sub main {
    print "hello\n";
    eval {
        print "in eval\n";
        my_die "in my_die";
        print "world\n";
    };
    if (my $err = $@ ){
        my_die "has err:$err";
        print "in err\n";
    }
    print "world\n";
}
main();

# perl test_eval1.pl

hello

in eval

has err:in my_die at test_eval1.pl line 8.

 

将代码中的12行注释掉

#perl test_eval2.pl

hello

in eval

in err

world

 

eval中使用die会比捕获，只会停止执行eval中的代码，然后跳出eval继续执行；eval外使用die，则会直接停止执行整个函数