Perl + Perl脚本返回代码1

Question

在我的小Perl脚本（test.pl）中，如果EXIT_STATUS等于1，我会执行以下操作以退出程序。

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

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

例如：

./test.pl

echo $?

如何在EXIT_STATUS = 1时启用返回代码1？

lidia

- lidia

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。

- slebetman