awk ist ein Unix- Utility-Funktion Sie verwenden, um Daten für die Filter-und Berichtsfunktionen extrahieren kann . Ein awk -Befehl kann direkt von der Kommandozeile aus , ein Shell-Skript oder ein Perl-Skript aufgerufen werden. Obwohl ein awk-Skript kann nicht direkt in einem Perl-Skript geschrieben werden , können Sie ausführen es mit einem Perl- System anrufen . Zwei weitere Befehle gawk und nawk stellen Alternativen zu awk die von perl in der gleichen Weise aufgerufen werden können. Anleitung
1

Erstellen Sie Ihre Perl-Skript mit der Dolmetscher Richtlinie Ortung Perl auf Ihrem System. Dieser ist in der Regel "#! /Usr /bin /perl " oder "# ! /Usr /local /bin /perl ", aber je nach Ihren speziellen Systemparameter.
2

Ausführen eines Perl- System Anruf mit der system () -Funktion:

system (" awk ' - Ihr awk-Skript hier -' input_file.txt ");

das System Funktion Gabeln die awk Prozess . Ihre Perl- Skript für den awk -Befehl warten zu beenden , bevor es ausgeführt wird fortgesetzt.
3

Escape-Zeichen mit einem Backslash in der awk-Skript , dass Perl kann als Perl -Befehle , wie interpretieren " $ " und Anführungszeichen . Ihr Anruf kann wie folgt aussehen:

system (" awk ' {print \\ $ 5, \\ " \\ t \\ " , \\ $ 6} ' input_file.txt ");

awk-Skript druckt die fünften und sechsten Spalte der " input_file.txt " durch ein Tabulatorzeichen getrennt.