Perl Untaint Variable en passant par le sous-programme du module Perl

Question

Lorsque les variables de Perl ne sont pas altérées, toutes les tâches doivent-elles être effectuées localement dans le fichier Perl (.pl) ou peuvent-elles être transmises à un module Perl (.pm)?

Par exemple, blanchissez peut ressembler à ceci:

$string =~ /\A(.*)\z/s 

(évidemment, il est une mauvaise pratique de match quoi que ce soit une couverture d'une entrée, cela montre juste un exemple)

Je suis Je me demande s'il est possible de le passer par un .pm car je veux exécuter sur la même expression regex dans plusieurs fichiers .pl.

use myModule; 

$string = myModule::myUntaint($string); 

Où "myUntaint" est un sous-programme dans le .pm "monModule" qui contient mon regex.

Answer 1

Oui, vous pouvez avoir un sous-programme dans un module qui prend un paramètre corrompu et renvoie une expression non tachée qui en dérive.

Mais vous ne devriez pas utiliser une expression de correspondance générique comme /\A(.*)\z/s pour ne pas être affecté. Cela va à l'encontre du but de l'altération, qui est de s'assurer que la valeur ressemble à ce que vous attendiez avant de l'utiliser. (Mais cela n'a rien à voir avec l'endroit où se trouve le code qui résiste à la vie.)