Início / coding / Perguntas / 77122162
Accepted
xpt
Asked: 2023-09-17 22:09:12 +0800 CST

Como pular o resto no perl como o próximo no awk?

  • 772

O nextcomando em awkirá:

Pare de processar o registro de entrada atual. Leia o próximo registro de entrada e comece o processamento com o primeiro padrão no programa AWK. Ao chegar ao final dos dados de entrada, execute qualquer(s) regra(s) END.

Suponha que meu script Perl seja uma lista de regras de transformação. Existe algo em Perl que possa simulá-lo, como se eu codificasse:

s/a/A/g;
s/b/B/g; next();
s/c/C/g;

o next?()irá verificar se uma determinada substituição foi bem-sucedida, então interromperá o processamento do restante das regras de transformação e, em vez disso, recomeçará a partir do primeiro padrão das regras de transformação.

Qual é a melhor maneira de conseguir isso?

Entrada de exemplo:

R: waltz
M: 3/4
L: 1/4
K: C
|: E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"E | EFG | A3"Dm" | G3"G7" |
| E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"G | G"G7"AB | c3"C"- | c3 ||
||d"G7" z/G/ G | BAG | E2"C"G | c3 | A2"F"c | d2"D"c | B3"G" | G3 |
| E2"C"G | d3"G7" | c2"C"G | F3"F" | E2"C"G | G"G7"AB c3"C" | c3 :|

As notas ABC, como E2 G, d3são tratadas/substituídas por último (em um while /re/giloop), enquanto os acordes de guitarra, "C" "Dm" "G7"etc., são substituídos primeiro e depois pulam a substituição das notas ABC. Tentei usar next if s/".*?"/^$&/g;para substituir a parte dos acordes da guitarra, mas todas as substituições das notas ABC foram ignoradas, o loop while posterior não foi alcançado.

perl

3 respostas

  1. Best Answer

    O que eu faria como uma linha:

    perl -lnE 's/a/A/g; next if s/b/B/g; s/c/C/g; say' file
    • 4

  2. Isso irá pular os números pares e imprimir os números ímpares.

    #!/usr/bin/perl
use v5.30;
use warnings;

my @numbers = 1..20;

for my $number (@numbers){
    next if $number % 2 == 0;
    say $number;
}
    • 1

  3. Eu não sou perl-ninja, mas se você tiver uma solução funcionando em determinado idioma e quiser converter para outro, poderá encontrar um transpilador para isso. Consegui desvendar a existência de a2p, o que consegui fazendo sudo cpanm -S App::a2p, então criei program.awkcom base no seu exemplo, ou seja,

    {gsub(/a/,"A")}
gsub(/b/,"B"){next}
{gsub(/c/,"C")}
{print}

    como gsubfunção

    retorna o número de substituições feitas

    será o mesmo que perguntar se alguma substituição foi feita ao usar como padrão. Observe que ele não imprimirá linhas bconforme o GNU AWKé instruído a nextalinhar, antes de ser printeditado. Então eu convoquei a2po seguinte caminho

    a2p program.awk > program.pl

    conteúdo de program.plé

    #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
            # this emulates #! processing on NIH machines.
            # (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
            # process any FOO=bar switches

$, = ' ';       # set output field separator
$\ = "\n";      # set output record separator

line: while (<>) {
    chomp;  # strip record separator
    s/a/A/g;
    if (s/b/B/g) {
    next line;
    }
    s/c/C/g;
    print $_;
}

    Eu testei usando file.txto seguinte conteúdo

    aaa
aab
aac
aba
abb
abc
aca
acb
acc
baa
bab
bac
bba
bbb
bbc
bca
bcb
bcc
caa
cab
cac
cba
cbb
cbc
cca
ccb
ccc

    fazendo

    perl program.pl file.txt

    e obtendo o resultado esperado, ou seja

    AAA
AAC
ACA
ACC
CAA
CAC
CCA
CCC

    (testado usando perl 5, versão 34, subversão 0)

    • 1

relate perguntas