L'obtention de la valeur de retour d'une commande exécutée à l'aide de backticks en Perl

Je peux faire la suite en bash:

output=`command`
retcode=$?

Est-il possible de faire la même chose en Perl? Quelque chose comme ceci:

$output=`command`
$retcode=???
  • Ce qui s'est passé lorsque vous avez essayé? 🙂 Plus sérieusement, juste essayer quelque chose comme ça va être beaucoup plus rapide que de poser une question ici.
InformationsquelleAutor petersohn | 2011-10-19
  1. 25

    Vous pouvez lire les $? variable (comme dans le shell). De man perlvar

     $?      The status returned by the last pipe close, backtick ("``") command, successful call to wait() or waitpid(), or from the
               system() operator.  This is just the 16-bit status word returned by the traditional Unix wait() system call (or else is made up
               to look like it).  Thus, the exit value of the subprocess is really ("$? >> 8"), and "$? & 127" gives which signal, if any, the
               process died from, and "$? & 128" reports whether there was a core dump.  (Mnemonic: similar to sh and ksh.)

               Additionally, if the "h_errno" variable is supported in C, its value is returned via $? if any "gethost*()" function fails.

               If you have installed a signal handler for "SIGCHLD", the value of $? will usually be wrong outside that handler.

               Inside an "END" subroutine $? contains the value that is going to be given to "exit()".  You can modify $? in an "END"
               subroutine to change the exit status of your program.  For example:

                   END {
                       $? = 1 if $? == 255;  # die would make it 255
                   }

               Under VMS, the pragma "use vmsish 'status'" makes $? reflect the actual VMS exit status, instead of the default emulation of
               POSIX status; see "$?" in perlvms for details.

               Also see "Error Indicators".
    InformationsquelleAutor Matteo
  2. 2

    Et depuis Perl 5.10, vous avez également ${^CHILD_ERROR_NATIVE}.

    De http://perldoc.perl.org/perl5100delta.html#New-internal-variables :

    ${^CHILD_ERROR_NATIVE}

    Cette variable donne le statut d'autochtone retourné par la dernière fermeture de canal,
    backtick de commande, l'aboutissement de l'appel à wait() ou waitpid(), ou à partir de la
    system() de l'opérateur. Voir perlvar pour plus de détails.

    InformationsquelleAutor mivk