Trucos UNIX: ¿Como escoger dinámicamente el interprete de Perl?

Imaginese lo siguiente: Usted tiene que correr un script en Perl en varios servidores diferentes (Solaris, Linux) y la ruta de Perl es distinta en cada uno (/usr/bin, /usr/local/bin); Peor aún: no puede confiar en el contenido de $PATH ya que usted sabe que el binario de Perl en cierta ubicación (por ejemplo /opt/perl o /usr/local/perl) tiene cierta funcionalidad habilitada, como threads.

¿Como hacer? Lo primero que viene a la mente es hacer un wrapper y llamar al script desde un shell como Bash, pasandole los argumentos originales. De allí podemos detectar donde está el binario de Perl deseado para luego ejecutarlo así:

#!/bin/bash
if [ -x /usr/local/bin/perl ]; then
/usr/local/bin/perl $@
elif [ -x /opt/bin/perl ]; then
/opt/bin/perl $@
else
printf "[ERROR]: Perl not found!"
exit 192
fi

Pero, ¿Hay una manera más eficiente de hacer esto?. Sip, podemos hacer que el script se vuelva a ejecutar a si mismo, pero utilizado a Perl y reemplazando el proceso que lo llamo (usando exec):

   1:#!/bin/bash
   2:
   3:if [ -x /usr/bin/perl ]; then
   4:        exec /usr/bin/perl -x $0 $@
   5:elif [ -x /usr/local/bin/perl ]; then
   6:        exec /usr/local/bin/perl -x $0 $@
   7:else
   8:        printf "[ERROR]: Perl not found!"
   9:        exit 192
  10:fi
  11:
  12:#!/usr/bin/perl
  13:
  14:use strict;
  15:
  16:printf "Hello %s\n", $ENV{USER};
  17:
  18:__END__
  19:
  20:=head1 NAME
  21:
  22:call_perl.plx - Shows how to call Perl from another scripting languaje, like bash
  23:
  24:=head1 DESCRIPTION
  25:
  26:The key here is to use exec in Bash and the '-x' flag with Perl
  27:
  28:=head1 SEE ALSO
  29:
  30:The manpage for Perl Run (man perlrun)
  31:
  32:=head1 AUTHOR
  33:
  34:Jose Vicente Nunez Zuleta (josevnz@sourceforge.net)
  35:
  36:=head1 BLOG
  37:
  38:KodeGeek - http://kodegeek.com
  39:
  40:=cut

Las claves aqui son:

• Llamar a Perl con 'exec' desde Bash. Eso reemplaza al proceso actual con el interprete de Perl
• Perl llama al codigo fuente usando -x. Esta bandera ignora cualquier basura hasta que se consiga el "magic cookie", en este caso "!#/usr/bin/perl".
  

¿Esta técnica la puede aplicar con cualquier otro lenguaje? Los invito a que me enseñen, yo ya les dí mi secreto ;)

Buscar en Technorati: perl