シェルスクリプト作成ヘルプ

Question

awkこれは見た目ほど難しくなく、またはで行うのは非常に簡単です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（入力から改行文字を削除し、それをprintby文の出力に追加）
この-pオプションを使用すると、sedのように動作します（つまり、各入力行を読み取り、処理後に自動的に印刷します）。
-e次の引数が実行されるスクリプトであることをPerlに通知します。

スクリプトは各入力行を読み取り、行が "#Price_Notification_Product"で始まる場合、現在の行を変数に保存します$prod。

それ以外の行が "change:" で始まる場合は、次のようになります。

正規表現キャプチャを使用して変更された値を抽出し、その値を名前付きハッシュ（「連想配列」とも呼ばれる）に追加します%products。ハッシュのキーは製品名（$prod）です。

#Price_Notification_Product...各製品の行が一意で一貫性がある限り、入力で必要な数の製品名を処理できるようにハッシュを使用します。各製品名の累積合計は独立して追跡されます。
$_この製品の現在の累積合計を持つように現在の行（変数）を変更します。

ただし、「change：」行に小数点の前後に固定の桁数を指定するには、を使用しますsprintf。たとえば、$_ = "change...."次のように行を変更できます。
```
           $_ = sprintf("change: %7.2f%%", $products{$prod});
           s/(\d)/+$1/;
```
これにより、以下のように「change」行が出力されます。
```
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：」行の2番目のフィールドからアンパサンドを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ます{print}。

Answer 1