Hvordan bruke Awk i Perl

Awk er en Unix nyttefunksjon du kan bruke til å hente ut data for filtrering og rapportering. En awk kommando kan kalles direkte fra kommandolinjen, et shell script eller et Perl-skript. Selv om en awk skript ikke direkte kan skrives i et perl script, kan du utføre den ved hjelp av et perl systemkall. To andre kommandoer, glaner og nawk, gi alternativer til awk som kan kalles fra perl på samme måte.

Bruksanvisning

1 Lag din perl script med tolken direktiv finne perl på systemet ditt. Dette er typisk "#! / Usr / bin / perl" eller "#! / Usr / local / bin / perl", men kan variere avhengig av dine spesielle systemparametere.

2 Utfør et perl systemkall bruker systemet () -funksjonen:

system ( "awk '--Generelt awk skriptet her--' input_file.txt");

Systemets funksjon gafler den awk prosessen. Din perl script vil vente til awk kommando for å avslutte før det fortsetter å utføre.

3 Escape tegn med en skråstrek i awk skript som perl kan tolke som perl kommandoer, for eksempel "$" og anførselstegn. Samtalen kan se slik ut:

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

Dette awk skriptet vil skrive ut den femte og sjette søylen "input_file.txt" adskilt av et tabulatortegn.