帮助创建 shell 脚本

Question

awk这并不像看起来那么困难，在或中相当容易做到perl。

使用perl：

$ perl -lpe 'if (/^#Price_Notification_Product/) {
               $prod = $_;
             } elsif (/^change: ([^%]*)%/) {
               $products{$prod} += $1;
               $_ = "change: +$products{$prod}%";
             }' input.txt 
#Price_Notification_ProductABC
Price: 0.006813
change: +1.6%
Count Number: 1

#Price_Notification_ProductABC
Price: 0.006969
change: +3.9%
Count Number: 2

#Price_Notification_ProductABC
Price: 0.007060
change: +5.2%
Count Number: 3

#Price_Notification_ProductABC
Price: 0.007300
change: +8.6%
Count Number: 4

#Price_Notification_ProductABC
Price: 0.007453
change: +10.7%
Count Number: 5

perl 的-l选项打开自动处理行结束符（例如，从输入中去除换行符，将它们添加到 byprint语句的输出中）
该-p选项使其像 sed 一样工作（即读取每个输入行并在任何处理后自动打印它）
-e告诉 perl 下一个 arg 是要执行的脚本。

该脚本读取每个输入行，如果该行以“#Price_Notification_Product”开头，则将当前行存储在变量中$prod。

否则，如果该行以“change:”开头，则：

使用正则表达式捕获提取更改的值，并将该值添加到名为的散列（也称为“关联数组”）中%products。哈希值的关键是产品名称 ( $prod)。

它使用散列，以便可以处理输入中任意数量的产品名称 - 只要#Price_Notification_Product...每个产品的行是唯一且一致的。每个产品名称的累计总数将被独立跟踪。
更改当前行（变量$_），使其具有该产品的当前累计总计。

顺便说一句，如果您希望“change:”行在小数点之前和/或之后具有固定位数，您可以使用sprintf.例如，将该$_ = "change...."行更改为：
```
           $_ = sprintf("change: %7.2f%%", $products{$prod});
           s/(\d)/+$1/;
```
这将输出“更改”行，如下所示：
```
change:   +1.60%
change:   +3.90%
change:   +5.20%
change:   +8.60%
change:  +10.70%
```

所有输入行都会被打印，无论它们是否已被修改。

输入可以来自文件（例如input.txt我使用过的文件）或来自标准输入（例如来自的管道tail -f）。

顺便说一句，我刚刚想到，当产品的计数重置为零时，您可能希望将产品的累计总数重置为零。如果是这种情况，请更改最后一行：

         }' input.txt

对此：

         } elsif (/^Count Number: 0$/) {
           $products{$prod} = 0;
         }' input.txt

与独立脚本相同：

#!/usr/bin/perl -lp

if (/^#Price_Notification_Product/) {
  $prod = $_;
} elsif (/^change: ([^%]*)%/) {
  $products{$prod} += $1;
  $_ = "change: +$products{$prod}%";
}

如果您的 Perl 解释器位于不同的位置，您需要调整#!行以引用正确的完整路径。

将其另存为，例如./script.pl，使用使其可执行chmod +x script.pl，然后运行它，如下所示：

$ ./script.pl input.txt

或者

$ perl -lp ./script.pl input.txt

awk 版本，perl 版本的直接翻译，但我们还必须使用从每个“change:”行的第二个字段中gsub()删除+和符号：%

$ awk '
/^#Price_Notification_Product/ {
  prod = $0;
}
/^change: / {
  gsub(/[+%]/,"",$2);
  products[prod] += $2;
  $2 = "+" products[prod] "%"
}
1' input.txt

awk 脚本最后一行1的不是拼写错误 - 这就是告诉 awk 始终打印当前行，无论它是否已被修改（awk 脚本本质上是一系列 PATTERN ACTION 规则，如果 PATTERN 评估为 true 那么ACTION 1评估为 true，默认操作为{print})

Answer 1