En muchos scripts de Perl (especialmente en famosos distribuciones CPAN) Encuentro el siguiente fragmento de código:¿Qué significa "no ejecutar bajo algún shell" en los scripts de Perl?
eval 'exec /usr/bin/perl -w -S $0 ${1+"[email protected]"}'
if 0; # not running under some shell
Me preguntaba para qué sirve?
Gracias.
Algunos sistemas no reconocen la línea #!/usr/bin/perl al comienzo de las secuencias de comandos, por lo que intentar invocar un programa Perl por nombre en dicho sistema simplemente pasará la secuencia de comandos al shell. Para combatir esto, los programas portátiles de Perl comienzan con una línea que, cuando es interpretada por un shell POSIX estándar, ocasiona que el script pase al perl(1). El if 0 hace que la línea sea ignorada cuando la ejecuta Perl, y colocarla en una línea separada hace que shells la trate como un comando separado, ejecutando solo el eval 'exec /usr/bin/perl -w -S $0 ${1+"[email protected]"}' tan pronto como se lee.
La línea es válida para las cubiertas y perl. En Perl, eval se omite debido al siguiente if 0. En shell, el mismo archivo se ejecuta en perl usando la evaluación.
Sí, esta identificación también es una buena aclaración. ¡Gracias de nuevo! –
¡Muchas gracias! ¡Qué ingenioso realmente! –
Me pregunto si todavía hay algún sistema que valga la pena preocuparse que no sea compatible con [shebangs] (http://en.wikipedia.org/wiki/Shebang_ (Unix)). –
Tengo scripts que hacen esto para que se ejecuten bajo Solaris Y Linux. El shebang apunta a un Perl de Solaris, pero en Linux el script se ejecuta como shell, y la línea eval ejecuta un perl de Linux. Los archivos perls se instalan en ubicaciones impares, pero los archivos/directorios se comparten entre sistemas a través de NFS. – runrig