Início / unix / Perguntas / 757238
Accepted
Martian2020
Asked: 2023-09-22 23:25:13 +0800 CST

perl: substitua uma string por uma variável contendo novas linhas (quebras de linha)

  • 772

Quero fazer edições contendo metacaracteres. Aqui https://stackoverflow.com/questions/29613304/is-it-possible-to-escape-regex-metacharacters-reliably-with-sed uma das soluções é via perlwith s\Q ... \E(perto do final da resposta aceita). É mencionado que ele lida com multi-liners, mas:

echo 'a-b' > a.txt;from='-';to='\n';perl -s -0777 -pe 's/\Q$from\E/$to/' -- -from="$from" -to="$to" a.txt
a\nb
echo 'a-b' > a.txt;from='-';to='\n';perl -s -0777 -pe 's/\Q$from\E/\n/' -- -from="$from" -to="$to" a.txt
a
b

Posso substituir por quebra de linha somente se escrever em ssi mesmo, via variável não funciona por algum motivo. Não consegui encontrar uma resposta através da pesquisa na web. Como fazer funcionar com \nvariável?

As variáveis ​​PS podem ter comprimento arbitrário e conter quaisquer metacaracteres, todos os quais devem ser usados ​​literalmente, exceto uma sequência específica de caracteres (por exemplo, \n) a ser substituída por quebras de linha.

text-processing

2 respostas

  1. Best Answer

    Da maneira correta, o problema não está em Perl, mas em shell:

    echo 'a-b' > a.txt
from='-'
to=$'\n' # <<< look at this
perl -s -0777 -pe 's/\Q$from\E/$to/' -- -from="$from" -to="$to" a.txt

    Saída

    a
b
    • 1

  2. Acho que descobri uma maneira de fazer isso em duas etapas, pré-processando variáveis ​​com:

    to="$(printf "%s" "${to}" | perl -pe 's/\Q\n\E/\n/g')"

    Surpreendentemente, isso não funciona para substituição de símbolo único (nova linha), mas funciona para strings mais longas:

    echo 'a-b' > a.txt;from='-';to='\n';to="$(printf "%s" "${to}" | perl -p -e 's/\Q\n\E/\n/g')";perl -s -0777 -pe 's/\Q$from\E/$to/' -- -from="$from" -to="${to}" a.txt
ab
echo 'a-b' > a.txt;from='-';to='\nd';to="$(printf "%s" "${to}" | perl -p -e 's/\Q\n\E/\n/g')";perl -s -0777 -pe 's/\Q$from\E/$to/' -- -from="$from" -to="${to}" a.txt
a
db

    Por enquanto, tenho apenas strings mais longas, mas gostaria de saber por que falha em um único símbolo.

    Está funcionando ao ler atribuições de variáveis ​​de um arquivo para, assim:

    itext="${line}"
itext="$(printf "%s" "${itext}" | perl -p -e 's/\Q\n\E/\n/g')"
while read -r line; do
    otext="${line}"
    otext="$(printf "%s" "${itext}" | perl -p -e 's/\Q\n\E/\n/g')"
    perl -s -0777 -pi -e 's/\Q$itext\E/$otext/' -- -itext="${itext}" -otext="${otext}" "${file_to_edit}"
done < "${file_with_edits}"
    • 0

relate perguntas