exit EXPR
exit
计算EXPR,退出Perl解释器,并将返回值作为退出值。始终运行在脚本中定义(导入的包),然后退出所有END {}块。如果EXPR被忽略,然后在解释器退出的值为0。不应该被用来从子程序中退出,无论是使用eval或die,或者使用返回。
Nothing.
以下是用法...
$ans = <STDIN>; exit 0 if $ans =~ /^[Xx]/;