小编Ask*_*nsP的帖子

的代码inter.pl是：

use strict;
use warnings;

my $var1=`cat /gra/def/ment/ckfile.txt`;  #ckfile.txt doesn't exist
print "Hello World";
exit 0;

当我执行 inter.pl ( perl inter.pl) 并检查退出状态时，我将其视为 0。我知道它显示为 0 的原因，因为它是一个反引号，在子 xterm 中执行它，然后执行后返回。因此，在子 xterm 中会看到退出状态不等于 0。

但是，我想要的是，当脚本中的任何地方出现任何问题时，无论是在系统命令内执行的脚本内还是反引号内或在主脚本中，它应该在那里退出，然后退出状态不等于 0。

像这里一样，由于 ckfile.txt 不存在，因此 ` cat /gra/def/ment/ckfile.txt` 会给出一些错误。现在，由于它是脚本中的错误命令，因此脚本应以 status != 0 退出。（当前，它以 status == 0 退出。）

如何实施？

inter.pl 的代码是：

use strict;\nuse warnings;\n\nmy $var1=`cat /gra/def/ment/ckfile.txt`;  #ckfile.txt doesn't exist\nprint "Hello World";\nexit 0;\n

ext.pl的代码

my $rc = system ("perl inter.pl");\nprint "$rc is rc\\n";\n

在这里，当我运行“perl ext.pl”时，$rc 为 0。

虽然 inter.pl (/gra/def/ment/ckfile.txt) 内的文件不存在\xe2\x80\x99t ，但我得到的 $rc 为 0。

在同一场景中，我希望 $rc 为 != 0 （在某种程度上，它应该是一个错误，因为文件 ckfile.txt 不存在）。

注意： 我无法在 inter.pl 中进行任何修改

如何实施？

提前致谢。