ARGV []はパラメータを受け入れません。

Question

似たようなものが欲しいようです。

#! /bin/sh -
DT=$(date -d yesterday +%m%d%Y) || exit
export DT
exec perl -lne '
  if (
    ($status, $machine) = /STATUS:\s+(\w+).+MACHINE:\s+(\w+\.\w+\.\w+)$/ and
    $status =~ /^(SUCCESS|FAILURE|TERMINATED)\z/
  ) {$count{$machine}++}
  END {
    for (keys %count) {
      print join "\t", $ENV{DT}, $ENV{AUTOSERVE}, $_, $count{$_};
    }
  }' < ~/tmp/log."$AUTOSERVE.$dt" > ~/tmp/output.txt

メモ:

たとえば、固定名のファイルは誰でも書き込み可能なディレクトリで使用しないでください。/tmpしたがって、ここに切り替えるか、または//...の専用領域を使用してください~/tmp。/var~/var~/.local$XDG_RUNTIME_DIR
このコードにはbashに関連する内容がないため、bashの依存関係を追加する必要はありません。
追加の-nパラメータはperlスクリプトへの入力です。
Chrisがすでに述べたように、あなたの引用に問題があります。
あなたはAUTOSERV/AUTOSERVE違いがあります。
.単一文字に一致する正規表現演算子です。テキストポイントを一致させるには、\.またはを使用します。[.]
使用法はdateGNUによって異なります。すべてのdate実装が-dオプションをサポートしているわけではなく、サポートしている場合は、BSDの項目や認識できない項目（ビジボックスやおもちゃ箱 yesterdayなど）など、まったく関連のない項目に使用できます。このスクリプトをGNU以外のシステムに移植する必要がある場合は、日付操作も可能です。dateperl
次のように、単一の正規表現を使用するように簡単に変更できます。
```
/STATUS:\s+(?:SUCCESS|FAILURE|TERMINATED)\b.+MACHINE:\s+(\w+.\w+.\w+)$/
```
マシンのリストをアルファベット順に並べ替えるには、をkeys %countに置き換えます。sort cmp, keys %count
execこのようなラッパースクリプトで非常に一般的なのは、プロセスを保存することです。perl子プロセスで実行し、待つのではなく、同じプロセスで実行するようにシェルに指示します。cmd+ fork()＆をexec(cmd)実行しますがwait(child)（exec cmdおそらくと呼ばれる必要がありますnofork cmd）exec(cmd)、入力に時間がかかりますが、システムの実行はより簡単で短く、リソースの使用量が少なくなります。
%m%d%Yタイムスタンプ形式を選択することはお勧めできません。あいまいで、語彙順（の出力と同様ls）が年代順と一致しません。%Y-%m-%dそれとも%F普遍的に認識され、語彙的に年代順（少なくとも0001から9999まで）にソートされるので、より良いです。
catファイルをリンクするコマンドです。ファイルに使用することは意味がありません。cmd < input > output（または、<input cmd >outputしかしいいえ cmd > output < inputinput）には、読み取り用に開くことができない場合はcmd実行されず、output削除されないという追加の利点があります。

^{1たとえば、ここに-MPOSIXaBEGIN{@t = localtime; $t[3]--; $dt = strftime "%m%d%Y", @t}またはハッキングとして追加します-M'POSIX;@t = localtime; $t[3]--; $dt = strftime "%m%d%Y", @t'。}

Answer 1

似たようなものが欲しいようです。

#! /bin/sh -
DT=$(date -d yesterday +%m%d%Y) || exit
export DT
exec perl -lne '
  if (
    ($status, $machine) = /STATUS:\s+(\w+).+MACHINE:\s+(\w+\.\w+\.\w+)$/ and
    $status =~ /^(SUCCESS|FAILURE|TERMINATED)\z/
  ) {$count{$machine}++}
  END {
    for (keys %count) {
      print join "\t", $ENV{DT}, $ENV{AUTOSERVE}, $_, $count{$_};
    }
  }' < ~/tmp/log."$AUTOSERVE.$dt" > ~/tmp/output.txt

メモ:

たとえば、固定名のファイルは誰でも書き込み可能なディレクトリで使用しないでください。/tmpしたがって、ここに切り替えるか、または//...の専用領域を使用してください~/tmp。/var~/var~/.local$XDG_RUNTIME_DIR
このコードにはbashに関連する内容がないため、bashの依存関係を追加する必要はありません。
追加の-nパラメータはperlスクリプトへの入力です。
Chrisがすでに述べたように、あなたの引用に問題があります。
あなたはAUTOSERV/AUTOSERVE違いがあります。
.単一文字に一致する正規表現演算子です。テキストポイントを一致させるには、\.またはを使用します。[.]
使用法はdateGNUによって異なります。すべてのdate実装が-dオプションをサポートしているわけではなく、サポートしている場合は、BSDの項目や認識できない項目（ビジボックスやおもちゃ箱 yesterdayなど）など、まったく関連のない項目に使用できます。このスクリプトをGNU以外のシステムに移植する必要がある場合は、日付操作も可能です。dateperl
次のように、単一の正規表現を使用するように簡単に変更できます。
```
/STATUS:\s+(?:SUCCESS|FAILURE|TERMINATED)\b.+MACHINE:\s+(\w+.\w+.\w+)$/
```
マシンのリストをアルファベット順に並べ替えるには、をkeys %countに置き換えます。sort cmp, keys %count
execこのようなラッパースクリプトで非常に一般的なのは、プロセスを保存することです。perl子プロセスで実行し、待つのではなく、同じプロセスで実行するようにシェルに指示します。cmd+ fork()＆をexec(cmd)実行しますがwait(child)（exec cmdおそらくと呼ばれる必要がありますnofork cmd）exec(cmd)、入力に時間がかかりますが、システムの実行はより簡単で短く、リソースの使用量が少なくなります。
%m%d%Yタイムスタンプ形式を選択することはお勧めできません。あいまいで、語彙順（の出力と同様ls）が年代順と一致しません。%Y-%m-%dそれとも%F普遍的に認識され、語彙的に年代順（少なくとも0001から9999まで）にソートされるので、より良いです。
catファイルをリンクするコマンドです。ファイルに使用することは意味がありません。cmd < input > output（または、<input cmd >outputしかしいいえ cmd > output < inputinput）には、読み取り用に開くことができない場合はcmd実行されず、output削除されないという追加の利点があります。

^{1たとえば、ここに-MPOSIXaBEGIN{@t = localtime; $t[3]--; $dt = strftime "%m%d%Y", @t}またはハッキングとして追加します-M'POSIX;@t = localtime; $t[3]--; $dt = strftime "%m%d%Y", @t'。}

ARGV []はパラメータを受け入れません。

ベストアンサー1

おすすめ記事