awk
それをサポートしている実装については知りません。そのための拡張を書くgawk
こともできますが、ここでは別の言語に切り替えたいと思います。
perl
awk
スクリプトを使用してスクリプトを簡単に変換できa2p
ます。
たとえば、次のawk
ようなスクリプトがあるとします。
{count[$0]++}
END {
for (i in count) printf "%5d %s\n", count[i], i
}
a2p
その上であなたに次のようなものを与えるでしょう:
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# this emulates #! processing on NIH machines.
# (remove #! line above if indigestible)
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
# process any FOO=bar switches
while (<>) {
chomp; # strip record separator
$count{$_}++;
}
foreach $i (keys %count) {
printf "%5d %s\n", $count{$i}, $i;
}
信号処理を追加するために編集できるもの(およびvar=value
、ここでは不要な引数の処理、およびをサポートしていないシステム向けの部分を削除#!
):
#!/usr/bin/perl
sub report {
foreach $i (keys %count) {
printf "%5d %s\n", $count{$i}, $i;
}
}
$SIG{INT} = sub {
print STDERR "Interrupted\n";
report;
$SIG{INT} = 'DEFAULT';
kill('INT', $$); # report dying of SIGINT.
};
while (<>) {
chomp; # strip record separator
$count{$_}++;
}
report;
別の方法としては、中断することができ、データの供給をするawk
、としているawk
SIGINTを無視し、代わりのように:
awk '{count[$0]++};END{for (i in count) printf "%5d %s\n", count[i], i}' file
行う:
cat file | (
trap '' INT
awk '{count[$0]++};END{for (i in count) printf "%5d %s\n", count[i], i}'
)
Ctrl+Cその後、殺しますcat
が、殺しませんawk
。awk
まだパイプ内に残っている入力の処理を続けます。
を検出するにCtrl+Cはawk
、次のようにします。
(cat file && echo cat terminated normally) | (
trap '' INT
awk '{count[$0]++}
END{
if ($0 == "cat terminated normally") delete count[$0]
else print "Interrupted"
for (i in count) printf "%5d %s\n", count[i], i}'
)