Início / unix / Perguntas / 481073
Accepted
Inian
Asked: 2018-11-12 03:01:09 +0800 CST

regex de linha de comando Perl para modificar todas as correspondências de padrão

  • 772

Estou tentando usar alguma aritmética sobre os padrões correspondentes na perllinha de comando. Eu sou capaz de fazer isso para uma partida, mas não para todas.

str="a1b2c3"
perl -pe 's/\d+/$&+1/e'  <<<"$str"
a2b2c3

Entendo que $&se refere ao primeiro dígito correspondente 1aqui. O que eu preciso fazer para adicionar 1a todos os dígitos? Existe uma variável semelhante a $&que representa todos os padrões correspondentes? ou o regex precisa ser modificado para corresponder a vários dígitos.

Para a entrada fornecida, estou esperando uma saída como

a2b3c4
regular-expression command-line

2 respostas

  1. Best Answer
    str="a1b2c3"
perl -pe 's/\d+/$&+1/ge' <<<"$str"

    O gsinalizador para a substituição faria o Perl aplicar a expressão para cada correspondência não sobreposta na linha de entrada.

    Nitpick: Na verdade, não há grupos de captura envolvidos aqui ( a pergunta original mencionava grupos de captura ). A variável Perl $&é a "string correspondente à última correspondência de padrão bem-sucedida". Isso é diferente de, por exemplo $1, e $2etc. que se referem à string correspondente ao grupo de captura correspondente (expressão entre parênteses). Não há grupos de captura em \d+, mas você poderia ter usado s/(\d+)/$1+1/ge, que usa um único grupo de captura.

    Não há diferença entre s/(\d+)/$1+1/gee s/\d+/$&+1/geem termos de resultado. Neste curto script Perl em linha, não faz diferença se você escolhe usar um ou outro, mas geralmente você gostaria de evitar o uso $&em programas Perl mais longos que fazem muitas operações de expressão regular, pelo menos se estiver usando um Perl mais antigo liberar.

    De perldoc perlvar(minha ênfase):

    Problemas de desempenho

    Tradicionalmente em Perl, qualquer uso de qualquer uma das três variáveis $`, $&ou $' (ou seus use Englishequivalentes) em qualquer lugar no código, fazia com que todas as correspondências de padrão bem-sucedidas subsequentes fizessem uma cópia da string correspondente , caso o código pudesse acessar posteriormente uma dessas variáveis . Isso impôs uma penalidade de desempenho considerável em todo o programa, portanto, geralmente o uso dessas variáveis ​​foi desencorajado.

    [...]

    No Perl 5.20.0, um novo sistema copy-on-write foi habilitado por padrão, o que finalmente corrige todos os problemas de desempenho com essas três variáveis ​​e as torna seguras para uso em qualquer lugar.

    • 10

  2. Caso você esteja realmente usando o zshshell ( <<<é um operador não padrão que vem de zsh, mas foi copiado para alguns outros shells desde então), observe que você não precisa invocar perlpara isso.

    Você pode fazer:

    set -o extendedglob # for (#m) below
printf '%s\n' ${str//(#m)<->/$((MATCH+1))}

    Onde

    • (#m)ativa a captura de toda a partida em $MATCH(o equivalente a perl's $&)
    • <-> corresponde a qualquer sequência de dígitos decimais (é como, <5-12>mas sem qualquer limite).
    • 2

relate perguntas