☰

在 awk 脚本中捕获 Ctrl-C

tag-icon • tag-icon shell-script awk trap
在 awk 脚本中捕获 Ctrl-C

我相信Ctrl-C可能会被困在 bash 脚本中。是否也可以将其捕获到 Awk 脚本中以处理该事件？

例如，为了中止处理，但打印已经处理的结果，而不是只是默默退出？

答案1

我不知道有任何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+Cin 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}'
)

答案2

您可以使用 shell（bash 或 dash 或其他）包装器脚本来实现您的目标，该脚本除了处理信号捕获之外，还将输入转发到 awk 脚本。

相关内容