Início / unix / Perguntas / 705818
Accepted
xpt
Asked: 2022-06-12 08:02:58 +0800 CST

Substituição condicional usando perl

  • 772

Pergunta hipotética muito simples,

Cheguei à limitação sede preciso mudar meu sedscript para perl. Então, para sedsubstituição condicional de

sed '/condition/ s/xx/yy/'

Como fazer isso em perl?

Por exemplo, como fazer o seguinte em perl?

seq 6 > /tmp/tf

$ paste -d '' /tmp/tf /tmp/tf | sed -E '/[135]/s/^(.)(.)$/\1.\2-/'
1.1-
22
3.3-
44
5.5-
66

$ paste -d '' /tmp/tf /tmp/tf | perl -pe 's/$&/$1.$2-/ if /^([135])(.)$/'
.-
22
.-
44
.-
66
sed perl

3 respostas

  1. O problema é que $1e assim por diante são redefinidos em cada nova expressão regular, então eles ficarão vazios a menos que você os repita no scomando, ou seja

    s/^([135])(.)$/$1.$2-/ if /^([135])(.)$/'

    que pode ser simplificado removendo o if:

    s/^([135])(.)$/$1.$2-/

    Em um caso mais geral, você pode preservar os valores capturados:

    if (/^([135])(.)$/) { $a=$1; $b=$2; s/$&/$a.$b-/; }
    • 6
  2. Best Answer

    Se você pretende reduzir a digitação e aumentar a semelhança entre como fazer isso em Perl e sed. Nesse caso, ambos sede Perl permitem a reutilização da expressão regular correspondente mais recentemente, especificando uma expressão vazia.

    sed '/^\([135]\)\(.\)$/ s//\1.\2-/'

    perl -pe '/^([135])(.)$/ && s//$1.$2-/'

    A expressão regular vazia no s///comando reutilizará a expressão do teste anterior (em geral, a expressão correspondente mais recente).

    Em Perl, devemos adicionar &&entre o teste e a substituição para deixá-lo agir como uma instrução de curto-circuito if. Em sed, a primeira expressão simplesmente atua como o endereço do comando de substituição.

    No geral,

    sed '/condition/ s/xx/yy/'

    ... seria "o mesmo que" (levando em consideração a sintaxe ligeiramente diferente e os sabores de expressão regular)

    perl -pe '/condition/ && s/xx/yy/'

    Nesse caso, porém, seria mais simples aplicar a substituição diretamente:

    sed 's/^\([135]\)\(.\)$/\1.\2-/'

    perl -pe 's/^([135])(.)$/$1.$2-/'
    • 6

  3. Usando Raku (anteriormente conhecido como Perl_6)

    raku -pe 's/^ (<[135]>) (.) $/$0.$1-/;'

    OU

    raku -pe 's/^ (.) (.) $/$0.$1-/ if  m/^ <[135]> /;'  

#Immediately above being a re-arrangement of:

raku -pe 'if m/^ <[135]> /  {s/^ (.) (.) $/$0.$1-/};'

    Postando isso na esperança de que seja útil para usuários de Perl que se interessam pelo Raku. No Raku, a captura começa a partir de $0, e as classes de caracteres são criadas com marcadores <[… ]>(somente colchetes são reservados para agrupamento). Também a correspondência é geralmente insensível ao espaço em branco (ou seja, Perl5 \xé o padrão).

    Tentar o primeiro exemplo de código Perl5 do @Kusalananda (com um 'acento' Raku conforme descrito) produzirá o erro Raku Null regex not allowed. Portanto, a primeira resposta do Raku acima se parece muito mais com o último exemplo de código Perl5 do @Kusalananda. (A segunda resposta do Raku acima utiliza uma ifcondicional, que alguns usuários podem achar mais legível).

    Entrada de amostra:

    11
22
33
44
55
66

    Saída de amostra:

    1.1-
22
3.3-
44
5.5-
66

    ADENDO: Como o OP postou dados de amostra que concatenavam dígitos idênticos - estou me perguntando se ainda há uma pergunta não respondida aqui sobre referências anteriores . No Raku, se você quiser reutilizar a primeira captura dentro de uma partida (por exemplo, lado esquerdo do s///operador), faça o seguinte:

    raku -pe 's/^ (<[135]>) $0 $/$0.$0-/;'

    OU

    raku -pe 's{^ (<[135]>) $0 $} = "$0.$0-";'

    OU (capturas nomeadas, abaixo):

    raku -pe 's/^ $<myOdd>=<[135]> $<myOdd> $/$<myOdd>.$<myOdd>-/;'

    OU

    raku -pe 's{^ $<myOdd>=<[135]> $<myOdd> $} = "$<myOdd>.$<myOdd>-";'

    O segundo e quarto exemplos imediatamente acima usam a nova notação de "atribuição de substituição" do Raku, que (para melhorar a legibilidade) também permite vários delimitadores - colchetes, curvas, ifetc. seção, mas isso pode resultar em código menos legível).

    https://raku.org/archive/rfc/144.html
    https://raku.org/archive/rfc/331.html
    https://raku.org

    • 1

relate perguntas