perl +从perl脚本返回代码1

Question

在我的小perl脚本（test.pl）中我执行以下操作以退出程序if EXIT_STATUS等于1

   if ( $EXIT_STATUS  == 1  )
       {
            system (exit);
      }

但我还需要从test.pl返回代码1

例如

./ test.pl

echo $？

如果EXIT_STATUS = 1，如何启用返回代码1

利迪娅

Answer 1

这不是你应该如何退出perl。它是：

if ($EXIT_STATUS == 1) {
    exit 1;
}

如果你想正常退出：

if ($EXIT_STATUS == 1) {
    exit 1;
}
else {
    exit 0;
}

或（根据您的意图）更简单：

exit $EXIT_STATUS;

请参阅：http://perldoc.perl.org/functions/exit.html