Mir ist keine awk
Implementierung bekannt, die dies unterstützt. Sie könnten eine Erweiterung für schreiben gawk
dafür , aber hier, würde ich eher in einer anderen Sprache wechseln.
perl
macht es einfach, awk
Skripte mit seinem a2p
Skript zu konvertieren .
Zum Beispiel, wenn Sie ein awk
Skript 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=value
Argumenten, 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 awk
und hat awk
die 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 cat
aber nicht töten awk
. awk
Die 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}'
)