Início / unix / Perguntas / 737222
Accepted
Duck
Asked: 2023-02-28 21:36:01 +0800 CST

Somando os valores na 5ª linha de cada registro de 6 linhas em um arquivo

  • 772

Eu tenho um arquivo txt com blocos de texto como este:

17-01-2023
Purchase AAA
Apple Pay John Doe
Full Payment
-11,34€
0,11€
30-01-2023
Purchase BBB
Mastercard Jane Doe
Installment
-23,90€
0,24€

Assim, temos em sequência, a data, o tipo de compra, o tipo de pagamento e nome, o tipo de pagamento, o valor como negativo e o desconto.

Eles se repetem no arquivo com milhares de entradas.

Quero somar os valores, neste exemplo, 11,34 + 23,90 e obter o total como positivo. Lembre-se de que há um símbolo do euro após o número e que, na minha localidade, a vírgula é o separador decimal.

Como faço isso no terminal, usando, digamos, sed, awk, etc.?

text-processing

4 respostas

  1. Você pode usar awk - ao contrário do caso em um prefixo de símbolo de moeda não numérico como €-23,90, um sufixo não numérico será ignorado durante a conversão numérica. Esteja ciente de que diferentes implementações podem lidar com o separador decimal da localidade de maneira diferente, ex.

    mawk 'NR%6 == 5 {sum -= $0} END {print sum}' file

    respeita LC_NUMERIC/ LC_ALLconforme exigido para conformidade com POSIX , enquanto o GNU awk se desvia da especificação POSIX por padrão e precisa ser instruído a usar sua localidade:

    gawk --use-lc-numeric 'NR%6 == 5 {sum -= $0} END {print sum}' file

    Veja o Guia do Usuário GNU Awk em Localidades Podem Influenciar a Conversão

    Testando com a localidade de_DE.UTF-8, por exemplo:

    $ export LC_NUMERIC=de_DE.UTF-8
$ 
$ mawk 'NR%6 == 5 {sum -= $0} END {print sum}' yourfile
35,24
$ 
$ gawk --use-lc-numeric 'NR%6 == 5 {sum -= $0} END {print sum}' sum=x yourfile
35,24

    e no Mac OS:

    $ awk --version
awk version 20200816

$ export LC_NUMERIC=de_DE.UTF-8

$ awk 'NR%6 == 5 {sum -= $0} END {print sum}' yourfile
35,24
    • 2
  2. Best Answer

    Supondo que o valor da transação esteja sempre na 5ª linha de um registro, um início de registro é indicado por uma data no formato "DD-MM-AAAA" e que esse padrão só pode ocorrer no início do registro, o seguinte awko programa fará:

    awk -v dpt=$(locale decimal_point) '/^([[:digit:]]{2}-){2}[[:digit:]]{4}$/{line_of_rec=0}
     {if (++line_of_rec==5) { if (dpt==".") sub(/,/,"."); total-=$0 } }
     END{printf "Total payments: %.2f\n",total}' input.txt

    Funciona da seguinte forma:

    • Ele passa o resultado do comando locale decimal_pointcomo variável dptpara o programa. Isso é relevante porque você parece estar usando awkem uma configuração onde a entrada é formatada usando ,como separador decimal, mas a localidade está definida para algo que usa ., fazendo com awkque perca a parte decimal do número.
    • Ele identifica as linhas de início de registro por seu padrão (assumimos nenhum espaço à esquerda e à direita!) e define uma variável line_of_recordcomo 0.
    • Para cada linha, aumente o line_of_recordcontador. Se chegar a 5, substituirá o ,por a .(se necessário) para que awkinterprete o conteúdo da linha como número decimal e subtraia o conteúdo da linha de uma variável totalpara somar valores positivos de pagamento.
    • Ao final da linha, imprimirá o total.

    Isso é mais código do que o mínimo necessário, mas torna o programa um pouco mais robusto se houver linhas vazias separando registros (ainda depende do valor da transação estar na 5ª linha de um registro).

    • 1

  3. Este aqui apenas por diversão - assume GNU sed para a n~mconstrução:

    $ sed -n '5~6{y/-,€/_.+/;p}' file | dc -e0 -f- -e_1\*p
35.24

    (é claro que você pode adicionar outro sed ou tr para converter o ponto decimal de volta ao local original, ,se desejar).

    • 1

  4. Usando Raku (anteriormente conhecido como Perl_6)

    Sem verificação de tipo:

    ~$ raku -ne 'state $sum1; $sum1 += $_.trans("," => ".").subst(/\€/) if ++$ % 6 == 5; END say $sum1;'  file

    Com verificação de tipo:

    ~$ raku -ne 'state Rat $sum1; $sum1 += $_.trans("," => ".").subst(/\€/) if ++$ % 6 == 5; END say $sum1;'  file

    Resumidamente, o Raku é executado na linha de comando com os -nesinalizadores de não impressão automática. Uma variável escalar $sum1é stated, o que significa que ela será instanciada antes do início do loop direcionado pelos -nesinalizadores. Na segunda instrução, se uma variável de contador de linha incrementada anônima ++$quando %o módulo dividido por 6 for igual a 5, transapague a ,vírgula para .colocar um ponto e remover ( substsem nada) o €símbolo do Euro. Em seguida, +=acumule na $sumvariável. No final ENDdo loop, say $sum1.

    Exemplo de Entrada:

    17-01-2023
Purchase AAA
Apple Pay John Doe
Full Payment
-11,34€
0,11€
30-01-2023
Purchase BBB
Mastercard Jane Doe
Installment
-23,90€
0,24€

    Saída de amostra:

    -35.24

    Para um total acumulativo, apenas saya variável acumulativa:

    ~$ raku -ne 'state $sum1; say $sum1 += $_.trans("," => ".").subst(/\€/) if ++$ % 6 == 5;'

    Saída de amostra:

    -11.34
-35.24

    Inspirado na resposta de @AdminBee awk, você pode tolerar linhas em branco entre os registros se incrementar o contador de linhas apenas quando as linhas contiverem .charscaracteres:

    ~$ raku -ne 'state Rat $sum1; say $sum1 += $_.trans("," => ".").subst(/\€/) if (.chars && ++$) % 6 == 5;'

    Saída de amostra (o mesmo que acima):

    -11.34
-35.24

    Observe que os números fornecidos no exemplo do OP são digitados como Ratnúmeros racionais por padrão no Raku (outros tipos disponíveis no Raku incluem Nums e Ints). Rats em Raku (supondo que sejam pequenos o suficiente) geralmente não sofrem de erros de arredondamento e são rapidamente convertidos em frações. Por exemplo, altere a ENDinstrução da seguinte maneira:

    ~$ raku -ne 'state $sum1; $sum1 += $_.trans("," => ".").subst(/\€/) if ++$ % 6 == 5; END say $sum1.numerator, "/", $sum1.denominator;'

    Saída de amostra:

    -881/25

    Para uma manipulação mais rápida, say $sum1.nuderetorna (-881 25).

    https://docs.raku.org/language/numerics.html#Rational
    https://raku.org

    • 0

relate perguntas