Как я могу объединить два условия в Perl?

Question

У меня есть два Perl лайнеры:

perl -pe "s/\b$a\b/$b/g if m/param1 /" test 

и

perl -pe "s/\b$a\b/$b/g unless /^#/" test 

Как объединяющие if m/somthing/ и unless /something/, как:

[root@localhost tmp]# perl -pe "s/\b$a\b/$b/g if m/param1/ unless /^#/" test 
syntax error at -e line 1, near "m/param1/ unless" 

Answer 1

На несвязанной ноте, вам может потребоваться добавить \Q and \E управляющие последовательности вокруг $a в своем регулярном выражении:

perl -pe "s/\b\Q$a\E\b/$b/g if m/param1 /" test 

Они экранировать любые символы, которые являются особенными для регулярных выражений. Если вы намерены использовать $a, чтобы удерживать регулярное выражение, вы должны перенести в него словарные ограничения (\b).

Независимо от того, что вы решите сделать, вам нужно быть осторожным со значениями в $a и $b. Например:

a="/" 
b="slash" 
perl -pe "s/\b\Q$a\E\b/$b/g if m/param1 /" test 

приведет к синтаксической ошибке. Одно из решений этого - не использовать переменные среды для замены кода. Perl позволяет получить доступ к среде через %ENV хэш:

perl -pe 's/\b\Q$ENV{a}\E\b/$ENV{b}/g if m/param1 /' test 

Обратите внимание на использование отдельных клещей, чтобы избежать лечения $ENV в качестве переменной оболочки.

Answer 2

Maybe

perl -pe "s/\b$a\b/$b/g if m/param1/ && ! /^#/" test 

.

Answer 3

unless такое же, как if not. Судя по тому, как вы написали заявление, я предполагаю, что вы имеете в виду следующее:

perl -pe "s/\b$a\b/$b/g if m/param1/ and not /^#/" test 

(Хотя, возможно, имел в виду or вместо and?)