主页 / unix / 问题 / 740846
Accepted
xpt
Asked: 2023-03-25 00:53:47 +0800 CST

awk 或 perl 计算每行中的数学表达式

  • 772

我想要一个脚本使 awk 成为一个交互式数学计算器，以评估每一行中给出的数学表达式。

即，不是构造 awk 命令来计算如下表达式：

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

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

我希望我的脚本将我的数学表达式作为输入并以交互方式进行计算。所以会话看起来像（输入和输出的替代）：

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

但是我自己无法做到这一点：

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

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

如果 awk 没有简单的解决方案，还有什么，比如 perl？

awk

4 个回答

  1. Best Answer

    awk算术评估作为/语言评估的一部分完成perl。perl有一个eval在运行时将任意字符串评估为 perl 代码，所以你可以这样做：

    perl -lne 'print eval $_'

    但是awk没有（虽然在 GNU 的情况下awk，它的调试器有，见下文），所以你需要运行awk每一行输入，并在代码参数中传递该行的内容，例如使用 GNU xargs：

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

    你也可以这样做：

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

    运行一个awk来解释所有代码行，但awk只会在到达输入末尾时才开始对其进行评估，因此不能以交互方式使用。不过，您可以重复使用过去评估的结果perl。喜欢：

    a = 3+4
a*2

    7然后它会打印14。

    使用 gawk 的调试器

    awk有一个调试器模式，eval你可以将 awk 代码传递给它来解释，所以你可以用类似的东西劫持它：

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

  2. 交互式地，只需使用

    非交互式，如果你想编写表达式的评估脚本：

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

$ bc < file
.15665796344647519582
.25326370757180156657
3
1

    要交错输入和输出，我们可以使用

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

  3. 用 perl 运行它！

    ...或者我们也可以使用 awk。考虑以下（二阶）awk 脚本run-in-awk

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

    chmod +x run-in-awk在我们实际上要求 awk 运行 awk之后

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

    它还适用于标准输入键盘输入。

    • 0

  4. 当我们可以将 sh 与 awk 一起使用时，为什么只使用 awk 或 perl？

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

    这将读取一个表达式并将其保存到一个变量中。然后调用 awk print 并传递变量。这是一个在 control-c 上退出的无限循环。

    这样一个奇怪的变量名是用来保护脚本不改变其他脚本的变量。

    • 0

相关问题