Comment définir le mode d'altération dans un script perl avec un '#!/Usr/bin/env perl'- shebang?

Question

Comment régler le mode taint dans un script Perl avec un

#!/usr/bin/env perl 

tralala?

Answer 1

Vous pouvez passer la variable d'environnement PERL5OPT sur la ligne de tralala:

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

Cela semble tout plutôt à l'envers pour moi.

Une autre option, est de ré-exécuter le script en mode taint si vous détectez c'est pas:

#!/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 

De toute évidence, cela est un grand succès de la performance de démarrage.

Answer 2

Depuis le mode taint ne peut être activé par le drapeau -T et env n'acceptera aucun drapeaux dans une ligne de tralala, votre meilleure option est d'exécuter le programme via perl -T script.pl plutôt que d'exécuter le script directement.

Si vous devez absolument respecter le mode taint dans le tralala, vous pourriez faire un script taintperl quelque part dans votre PATH (par exemple/usr/local/bin) avec le contenu suivant:

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

Ensuite, dans votre script Perl, ont

#!/usr/bin/env taintperl