Início / unix / Perguntas / 774856
Accepted
Ray Andrews
Asked: 2024-04-20 08:42:24 +0800 CST

É possível ordenar as letras de uma palavra em uma linha de texto?

  • 772

Portanto, tenho um arquivo cheio de comandos de teste que gosto de executar em algumas de minhas funções para ter certeza de que estão lidando corretamente com todas as situações possíveis. Não faz sentido ter comandos duplicados. Aqui estão alguns exemplos:

rap ,Xflg MIT X11           
rap ,XPBfl 'MITER'
rap ,Bflg share git-grep    
rap ,bfl X11
rap ,Bfl xzfgrep
rap ,Bf X11

... minha função 'rap' usa uma vírgula em vez de um travessão para indicar o início das opções de letras, então há alguns argumentos a seguir. Como a ordem dessas opções não importa:

rap ,Bf X11
rap ,fB X11

... são exatamente o mesmo comando. Fácil de remover linhas duplicadas do arquivo, é claro, no entanto, para evitar o problema acima, o que eu gostaria de fazer é classificar as opções em ordem alfabética para que o acima ficasse:

rap ,Bf X11
rap ,Bf X11

... e eu poderia excluir as duplicatas. Algo assim pode ser feito sem heroísmo? Observe que isso não está classificando 'por' a lista de opções, mas classificando as próprias opções.

text-processing

3 respostas

  1. Best Answer

    Você poderia usar perl para capturar uma sequência de caracteres de palavras após uma vírgula, dividir o resultado em uma matriz, classificá-la e substituir o resultado:

    $ perl -pe 's{(?<=,)(\w+)}{join "", sort split(//, $1)}e' yourfile 
rap ,Xfgl MIT X11           
rap ,BPXfl 'MITER'
rap ,Bfgl share git-grep    
rap ,bfl X11
rap ,Bfl xzfgrep
rap ,Bf X11

    Conforme solicitado, aqui está uma maneira (provavelmente abaixo do ideal) de classificar todas as opções de letras minúsculas antes de todas as maiúsculas:

    $ perl -pe 's{(?<=,)(\w+)}{@opts = split(//,$1); join "", 
    (sort grep /[[:lower:]]/,@opts), (sort grep /[[:upper:]]/, @opts)
  }e' yourfile 
rap ,fglX MIT X11           
rap ,flBPX 'MITER'
rap ,fglB share git-grep    
rap ,bfl X11
rap ,flB xzfgrep
rap ,fB X11
    • 3

  2. Outra perlvariante:

    $ perl -pe 's{^rap ,\K\S+}{join "", sort split //, $&}e' file
rap ,Xfgl MIT X11
rap ,BPXfl 'MITER'
rap ,Bfgl share git-grep
rap ,bfl X11
rap ,Bfl xzfgrep
rap ,Bf X11

    Para sua exigência extra de ter letras minúsculas antes das maiúsculas, você pode confiar no fato de que em ASCII 'x'é 'X' ^ 32(e 'X'é 'x' ^ 32):

    $ perl -pe 's{^rap ,\K\S+}{join "", sort {(ord($a)^32) <=> (ord($b)^32)} split //, $&}e' file
rap ,fglX MIT X11
rap ,flBPX 'MITER'
rap ,fglB share git-grep
rap ,bfl X11
rap ,flB xzfgrep
rap ,fB X11
    • 1

  3. Usando Raku (anteriormente conhecido como Perl_6)

    ~$ raku -pe 's{ <?after \, > (\w+) } = "{$0.comb.sort.join}";'  file

    Raku é uma linguagem de programação da família Perl que oferece suporte integrado de alto nível para Unicode. Acima está uma tradução Raku do excelente código Perl de @steeldriver (com uma homenagem a @StéphaneChazelas).

    • O s///formulário pode ser escrito s{ … } = " … ". Curlies na metade de substituição (dentro das aspas duplas) significam um bloco de código que é executado na captura.
    • Uma visão positiva por trás de "Y-after-X" em Raku é escrita <?after X > Y(o negativo usa a !em vez de a ?).
    • Além disso, as capturas no Raku começam em $0e
    • Raku implementa uma função seletora positiva (global) comb, que - na ausência de um argumento regex - quebra em cada caractere.

    Entrada de amostra:

    rap ,Xflg MIT X11           
rap ,XPBfl 'MITER'
rap ,Bflg share git-grep    
rap ,bfl X11
rap ,Bfl xzfgrep
rap ,Bf X11

    Saída de amostra:

    rap ,Xfgl MIT X11           
rap ,BPXfl 'MITER'
rap ,Bfgl share git-grep    
rap ,bfl X11
rap ,Bfl xzfgrep
rap ,Bf X11

    Alfabetize as opções de letras com letras minúsculas primeiro:

    ~$ raku -pe 's{ <?after \, > (\w+) } = "{ 
               my (@l,@u); 
               $0.comb.map({ /<:Ll>/ ?? @l.push($_) !! @u.push($_) });  
               join "", @l.sort,@u.sort }";'  file

rap ,fglX MIT X11           
rap ,flBPX 'MITER'
rap ,fglB share git-grep    
rap ,bfl X11
rap ,flB xzfgrep
rap ,fB X11

    Acima usa a representação Unicode de letras minúsculas <:Ll>(veja o primeiro link abaixo para obter detalhes). Também está em exibição o operador ternário de Raku: Test ?? True !! False (veja o segundo link abaixo para detalhes).

    https://docs.raku.org/linguagem/regexes#Predefinido_character_classes
    https://docs.raku.org/linguagem/operators#infix_??_! !
    https://docs.raku.org/linguagem/regexes
    https://raku.org

    • 0

relate perguntas