perl - procure por uma linha longa e mude uma palavra nela

Question

Comando bash de uma linha: como pesquisar por uma linha longa e alterar uma palavra nela?

 perl -i -0pe 's/my long line/my right line/g' file

Isso funciona, mas posso ter algo mais legível como

perl -i -0pe '\
SEARCH=my long line \
CHANGE=s/long/right/g \
' file

Eu preciso usar o perl

    

Answer 1

perl -i -0pe '\
$match = quotemeta "my long line";\
$find = quotemeta 'long';\
$replace = 'right';\
s/$find/$replace/g if m/$match/;\
' file

Como sundeep disse que você pode usar variáveis. Certifique-se de citar as variáveis para o lado da correspondência do regex