Início / unix / Perguntas / 740846
Accepted
xpt
Asked: 2023-03-25 00:53:47 +0800 CST

awk ou perl para avaliar expressões matemáticas em cada linha

  • 772

Eu quero um script para tornar o awk uma calculadora matemática interativa, para avaliar expressões matemáticas dadas em cada linha.

Ou seja, ao invés de construir comandos awk para calcular expressões como as seguintes:

$ awk 'BEGIN{print 180/1149}'
0.156658

$ awk 'BEGIN{print (150+141)/1149}'
0.253264

Quero que meu script receba minhas expressões matemáticas como entrada e faça o cálculo de forma interativa. Então a sessão ficará assim (alternativa de entrada e saída):

180/1149
0.156658
(150+141)/1149
0.253264
1 + 2
3
2 * 3 - 5
1

No entanto, não consigo fazer isso sozinho:

$ awk '{print}'
180/1149
180/1149
^C

$ awk '{print $0}'
180/1149
180/1149
1 + 2
1 + 2
^C

Se não houver uma solução simples para o awk, o que mais, como o perl?

awk

4 respostas

  1. Best Answer

    A avaliação aritmética é feita como parte da avaliação da linguagem awk/ perl. perltem um evalpara avaliar strings arbitrárias como código perl em tempo de execução, então você pode fazer:

    perl -lne 'print eval $_'

    Mas awknão (embora no caso de GNU awk, seu depurador faça, veja abaixo), então você precisa executar awkpara cada linha de entrada e passar o conteúdo dessa linha dentro do argumento de código, por exemplo, usando GNU xargs:

    xargs -rd '\n' -I CODE awk -- 'BEGIN{print(CODE)}'

    Você também pode fazer:

    sed 's/.*/BEGIN{print(&)}/' | awk -f -

    Para executar um awkpara interpretar todas as linhas de código, mas awksó começaria a avaliá-lo ao chegar ao final da entrada, portanto, não pode ser usado interativamente. Você seria capaz de reutilizar os resultados de uma avaliação anterior, como no perlentanto. Como em:

    a = 3+4
a*2

    Seria impresso 7, então 14.

    Usando o depurador do gawk

    awktem um modo de depurador que possui um evalpara o qual você pode passar o código awk para interpretar, então você pode sequestrar isso com algo como:

    sed -u 's/["\\]/\\&/g;s/.*/eval "print(&)"/' | gawk -D -f /dev/null
    • 6

  2. Interativamente, basta usar

    Não interativamente, se você quiser fazer o script da avaliação das expressões:

    $ cat file
180/1149
(150+141)/1149
1 + 2
2 * 3 - 5

$ bc < file
.15665796344647519582
.25326370757180156657
3
1

    Para intercalar a entrada e a saída, podemos usar 

    $ paste -d '\n' file <(bc < file)
180/1149
.15665796344647519582
(150+141)/1149
.25326370757180156657
1 + 2
3
2 * 3 - 5
1
    • 5

  3. Execute-o com perl!

    ...ou também podemos usar o awk. Considere o seguinte script awk (de segunda ordem)run-in-awk

    #!/usr/bin/awk -f
{ system( "awk 'BEGIN{print " $0 "}' ") }

    depois de chmod +x run-in-awkestarmos de fato pedindo ao awk para executar o awk

    $ run-in-awk example
0.156658
0.156658
0.253264
0.253264
3
3
1
1

    Ele também funciona com entrada de teclado stdin.

    • 0

  4. Por que apenas awk ou perl quando podemos usar sh com awk?

    #!/bin/sh
while read e_x__p_ress_ion___; do
    awk "BEGIN{print ${e_x__p_ress_ion___}}"
done

    Isso lerá uma expressão e a salvará em uma variável. Então o awk print é chamado e a variável é passada. Este é um loop infinito que sai em control-c.

    Um nome de variável tão estranho é usado para proteger o script de alterar as variáveis ​​de outros scripts.

    • 0

relate perguntas