Início / unix / Perguntas / 788841
Accepted
grandMehrshad
Asked: 2024-12-30 03:07:58 +0800 CST

como usar o comando nthprime no sed

  • 772

Quero substituir um número em um arquivo de texto pelo enésimo primo, tenho um executável que calcula o enésimo primo, como usar esse comando sedpara substituir cada número na frente ##com seunthprime

./nthprime 46

199

sed -e 's/46##/199#/g'

arquivo de texto inclui algo como isto:

(3505948*51##+331)/56439692311
(2608338*52##+401)/2357853732775
(47723079*50##+773)/7419068507
(67##/16##-1)/40446657668663868225798856758

saída desejada:

(3505948*233#+331)/56439692311
(2608338*239#+401)/2357853732775
(47723079*229#+773)/7419068507
(331#/53#-1)/40446657668663868225798856758
sed

1 respostas

  1. Best Answer

    Com perlo uso da nth_primefunção do Math::Prime::Utilmódulo perl (no libmath-prime-util-perlpacote no Debian e derivados) para evitar ter que bifurcar um processo e invocar um utilitário externo para cada ocorrência de n##:

    $ perl -MMath::Prime::Util=nth_prime -pe 's{(\d+)##}{nth_prime($1) . "#"}ge' your-file
(3505948*233#+331)/56439692311
(2608338*239#+401)/2357853732775
(47723079*229#+773)/7419068507
(331#/53#-1)/40446657668663868225798856758

    Se você quiser invocar seu próprio nthprimeutilitário:

    perl -pe 's{(\d+)##}{chomp($res = `nthprime $1`); "$res#"}ge' your-file

    Ou armazenar em cache o resultado como uma otimização para evitar executar o comando várias vezes para o mesmo número primo:

    perl -pe 's{(\d+)#(?=#)}{$cache{$1} //= `nthprime $1` =~ s/\n+\z//r}ge' your-file

    O Standard sednão tem como executar comandos. O GNU sed faz como extensões não-padrão com seu ecomando e o esinalizador para o scomando, mas essas são um pesadelo de segurança e também ainda mais ineficientes, pois também executam um shell a cada vez, além do comando¹, então, na minha opinião, é melhor evitá-las.

    Uma abordagem com utilitários padrão seria gerar shcódigo como:

    cut -c2- << EOF
 (3505948*$(nthprime 51)#+331)/56439692311
 (2608338*$(nthprime 52)#+401)/2357853732775
 (47723079*$(nthprime 50)#+773)/7419068507
 ($(nthprime 67)#/$(nthprime 16)#-1)/40446657668663868225798856758
EOF

    Para alimentar sh, o que é quase impossível de fazer com segurança (evitando vulnerabilidades de injeção de comando) e portabilidade. O melhor que posso oferecer:

    {
  echo 'cut -c2- << EOF'
  LC_ALL=C sed '
    s/[\\`$]/\\&/g
    s/^/ /
    s/\([0-9]\{1,\}\)##/$(nthprime \1)#/g
  ' < your-file
  echo EOF
} | LC_ALL=C sh

    Isso deve ser seguro com o GNU, sedque pode lidar com não texto. Em sistemas com uma sedimplementação diferente, você pode torná-lo mais seguro garantindo que a entrada seja um texto válido removendo os bytes NUL e dobrando as linhas que são maiores que LINE_MAX (e ainda garantir que trabalhamos no Clocal e não no do usuário, onde a codificação/decodificação de caracteres pode adicionar mais complicações) com algo como:

    (
  export LC_ALL=C
  linemax=$(getconf LINE_MAX) || exit
  {
    echo 'cut -c2- << EOF'
    <your-file LC_ALL=C tr -d '\0' |
      fold -w "$(( linemax - 2 ))" |
      sed '
        s/[\\`$]/\\&/g
        s/^/ /
        s/\([0-9]\{1,\}\)##/$(nthprime \1)#/g
      '
    echo EOF
  } | sh
)

    (não testado)

    ¹ Exceto em alguns sistemas como o Solaris, onde popen()(que é usado pelo comando/sinalizador seddo GNU e) pode otimizar a invocação do shell quando o comando é simples o suficiente, como o Perl faz com seu `cmd`operador.

    • 2

relate perguntas