¿Cómo configuro el modo de contaminación en un script de Perl con un '#!/Usr/bin/env perl'- shebang?

Question

¿Cómo se configura el modo de mancha en un script Perl con un tinglado

#!/usr/bin/env perl 

?

Answer 1

puede pasar la variable de entorno PERL5OPT en la línea shebang:

#!/usr/bin/env PERL5OPT=-T perl 

Esto me parece un poco retrógrado.

Otra opción, es volver a ejecutar la secuencia de comandos en el modo de mancha si detecta que no está en:

#!/usr/bin/env perl 

warn 'Taint mode is '.(${^TAINT} ? 'on' : 'off'); # For debugging 

exec($^X,'-T',$0,@ARGV) unless ${^TAINT}; 

# do stuff under taint mode here 

Obviamente, este es un importante rendimiento de inicio golpe.

Answer 2

Desde el modo de mancha sólo se puede activar a través de la bandera -T y env no aceptará ninguna bandera en una línea tinglado, su mejor opción es ejecutar el programa a través de perl -T script.pl en lugar de ejecutar la secuencia de comandos directamente.

Si es absolutamente necesario para hacer cumplir el modo de mancha en el tinglado, se podría hacer un script taintperl en algún lugar de su PATH (por ejemplo,/usr/local/bin) con el siguiente contenido:

#!/bin/sh 
/usr/bin/env perl -T 

Luego, en su script de Perl, tienen

#!/usr/bin/env taintperl