Início / unix / Perguntas / 781265
Accepted
Jonathan Komar
Asked: 2024-08-02 19:59:04 +0800 CST

Por que essa linha única do Perl Regex não respeita a sequência de escape \U?

  • 772

Por que essa linha única do Perl Regex não torna o resultado completo em maiúsculas usando o \Umodificador?

Eu espero MY_NICE_WORD.

$ perl -pe 's/(?<=[a-z])(?=[A-Z])|(?<=[A-Z])(?=[A-Z][a-z])/\U$1_$2\E/g' <(echo 'myNiceWord HTTPHeader')
my_Nice_Word HTTP_Header

De acordo com os documentos,

The following escape sequences are available in constructs that interpolate, but not in transliterations.

           \l          lowercase next character only
           \u          titlecase (not uppercase!) next character only
           \L          lowercase all characters till \E or end of string
           \U          uppercase all characters till \E or end of string
           \F          foldcase all characters till \E or end of string
           \Q          quote (disable) pattern metacharacters till \E or
                       end of string
           \E          end either case modification or quoted section
                       (whichever was last seen)

fonte:man --pager 'less -p "The following escape sequences are available in constructs that interpolate, but not in transliterations."' perlop

O texto de substituição não está dentro do contexto de interpolação?

Exemplos de trabalho

Ao seguir a documentação, no meu entender, posso oferecer este exemplo prático:

$ perl -pe 's/(hello)/\U$1\E/g' <(echo hello)
HELLO

Expressão regular de https://stackoverflow.com/a/1176023/1236128

-> caso importante coberto por isto: HTTPHeader não se tornaria h_t_t_p_header, em vez disso HTTP_Header(ou com HTTP_HEADER maiúsculo)

regular-expression

3 respostas

  1. Best Answer

    Você está usando asserções lookahead ( (?=…)) e lookbehind ((<?=…) ) sem nada para corresponder e substituir.

    Acho que é isso que você está tentando alcançar, ou seja, introduzir um sublinhado na frente de cada letra maiúscula e depois colocar toda a string em maiúscula:

    perl -pe 's/([a-z]*)([A-Z][a-z]+)/\U$1_$2/g' <<<'myWord'
MY_WORD

perl -pe 's/([a-z]*)([A-Z][a-z]+)/\U$1_$2/g' <<<'myNiceWord'
MY_NICE_WORD

perl -pe 's/([a-z]*)([A-Z][a-z]+)/\U$1_$2/g' <<<'myReallyNiceWord'
MY_REALLY_NICE_WORD

    mas,

    perl -pe 's/([a-z]*)([A-Z][a-z]+)/\U$1_$2/g' <<<'ReallyNiceWord'
_REALLY_NICE_WORD

    Então talvez

    perl -pe 's/([a-z]*)([A-Z][a-z]+)/\U$1_$2/g; s/^_//' <<<'ReallyNiceWord'
REALLY_NICE_WORD

    E se é aí que você está indo é mais fácil dividir a "palavra" em maiúsculas, juntar os componentes com _e colocar o resultado em maiúscula:

    perl -pe '$_ = uc join("_", split(/(?=[A-Z])/) )' <<<'myReallyNiceWord'
MY_REALLY_NICE_WORD
    • 3

  2. Vejo dois problemas: você está usando asserções de largura zero. Não vejo nenhuma maneira de fazer isso em uma única passagem.

    Isso funcionará para você:

    echo "unaffected Unaffected myNiceWord" |
  perl -pe 's/([a-z])([A-Z])/$1_$2/g; s/([a-zA-Z]*_[A-Z][a-z]*)/\U$1\E/g'

    Ele falha no myFWord.

    • 1

  3. Esta resposta aborda o problema do OP de tornar o resultado maiúsculo/não poder usar \U em capturas de grupo ao usar correspondências de largura 0 (e continuar usando a mesma expressão regular):

    A resposta é que você não pode usar \U \E em correspondências de grupo de largura zero (?<=...) ou (?=...) usando $1 e $2, porque eles não são grupos de captura, em vez disso, procure operadores (Obrigado Stéphane Chazelas)

    Uma solução alternativa para essa limitação sem alterar a expressão original é pós-processar o resultado da seguinte forma:

    Use a variável especial Perl $_para processar a saída da expressão aplicada a uma string: $_ = uc($_)em que ucé uma função incorporada em maiúsculas em Perl, convertendo o resultado em maiúsculas.

    perl -pe 's/(?<=[a-z])(?=[A-Z])|(?<=[A-Z])(?=[A-Z][a-z])/\U$1_$2\E/g; $_ = uc($_)' <(echo 'myNiceWord HTTPHeader')
MY_NICE_WORD HTTP_HEADER

    PS: o comentário de muru respondeu à pergunta de por que \U não funciona, que foi a motivação para minha linha de pensamento nesta resposta. Obrigado.

    Todas as suas correspondências não têm largura zero? $1 e $2 são apenas strings vazias.

    • 0

relate perguntas