Как я могу избежать метасимволов регулярных выражений из интерполированной переменной в Perl?

Question

Мне нужно создать «скрывающую» функцию, которая заменяет текстовый пароль в строке перед записью его в журнал.

Это выглядит так:

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

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

      return $logline;
}

Но это, конечно, не работает. Знак «$» в строке пароля интерполируется как символ конца строки, поэтому совпадений нет, поэтому замена не работает.

Как мне решить эту проблему?

Answer 1

(Почему бы просто не сохранить пароль в строке журнала?)

Использование 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";

Выходы:

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

Answer 2

В интерполированных строках

\Q → quotemeta
\L → lc
\l → lcfirst
\U → uc
\u → ucfirst
\E → конец регистра / модификатор кавычки

Таким образом, это тоже решение.

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

Answer 3

Решение, конечно, заключается в использовании:

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