Comment puis-je échapper des métacaractères d'expression régulière à partir d'une variable interpolée en Perl?

Question

J'ai besoin de créer une fonction "obscurcissante" qui remplace le mot de passe en texte clair en ligne, avant de l'écrire dans le journal.

Il ressemble à ceci:

function pass_obscure { 
     my $logline = shift; 
     my $pass = "wer32pass$"; # this password is an example, the real one is received as parameter, or already stored as global value 

     $logline =~ s/$pass/*********/g; 

     return $logline; 
} 

Mais cela, bien sûr, ne fonctionne pas. Le signe '$' dans la chaîne de mot de passe est interpolé en tant que caractère de fin de ligne, donc il n'y a pas de correspondance, et donc le remplacement ne fonctionne pas.

Comment puis-je résoudre ce problème?

Merci.

Answer 1

(Pourquoi ne pas simplement garder le mot de passe de la ligne du journal en premier lieu?)

Utilisation quotemeta:

$pass = "password\$"; 
$logline = "password is: password\$"; 

print "$pass\n"; 
print "$logline\n"; 
$pass_quoted = quotemeta($pass); 

$logline =~ s/$pass_quoted/********/g; 

print "$logline\n"; 

Sorties:

password$ 
password is: password$ 
password is: ******** 

Answer 2

ok, désolé, déjà résolu. La solution, bien sûr, est d'utiliser:

my $pattern = quotemeta $pass; 
    $logline =~ s/$pattern/********/g; 

Merci quand même

Answer 3

Dans les chaînes interpolées,

\Q → quotemeta
\L → lc
\l → lcfirst
\U → uc
\u → ucfirst
\E → fin de l'affaire/modificateur de citation

Ainsi c'est aussi une solution.

$logline =~ s/\Q$pass/********/g;