Mir ist keine awkImplementierung bekannt, die dies unterstützt. Sie könnten eine Erweiterung für schreiben gawkdafür , aber hier, würde ich eher in einer anderen Sprache wechseln.
perlmacht es einfach, awkSkripte mit seinem a2pSkript zu konvertieren .
Zum Beispiel, wenn Sie ein awkSkript haben wie:
{count[$0]++}
END {
for (i in count) printf "%5d %s\n", count[i], i
}
a2p darauf gibt es dir so etwas wie:
#!/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;
}
Welche können Sie bearbeiten, um Ihre Signalbehandlung hinzuzufügen (und die Verarbeitung von var=valueArgumenten, die wir hier nicht wollen, und den Teil, der für Systeme gedacht ist, die nicht unterstützen, entfernen #!):
#!/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;
Eine weitere Alternative könnte sein , die zu unterbrechen Zuführung von Daten zu awkund hat awkdie SIGINT ignorieren, wie statt:
awk '{count[$0]++};END{for (i in count) printf "%5d %s\n", count[i], i}' file
tun:
cat file | (
trap '' INT
awk '{count[$0]++};END{for (i in count) printf "%5d %s\n", count[i], i}'
)
Ctrl+Cwird dann cataber nicht töten awk. awkDie verbleibende Eingabe wird weiterhin in der Pipe verarbeitet.
Um das Ctrl+CIn zu erkennen awk, können Sie Folgendes tun:
(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}'
)