Perl + код возврата 1 из сценария Perl

Question

в моем маленьком скрипте perl (test.pl) я делаю следующее, чтобы выйти из программы, если EXIT_STATUS равен 1

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

но мне также нужно получить код возврата test.pl 1

например

. / Test.pl

echo $?

как включить код возврата 1, если EXIT_STATUS = 1?

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