Come utilizzare Awk in Perl

awk è una funzione di utilità Unix si può usare per estrarre i dati per il filtraggio e la segnalazione . Un comando awk può essere chiamato direttamente da linea di comando , uno script di shell o uno script Perl . Anche se uno script awk non può essere scritto direttamente all'interno di uno script perl, è possibile eseguire utilizzando una chiamata di sistema perl. Altri due comandi, gawk e nawk , forniscono alternative a awk che possono essere chiamati da Perl nello stesso modo . Istruzioni
1

Crea il tuo script perl con la direttiva interprete localizzare Perl sul vostro sistema . Questo è in genere " # ! /Usr /bin /perl " o "# ! /Usr /local /bin /perl , " ma può variare a seconda dei parametri di sistema particolari .
2

eseguire una chiamata di sistema Perl usando la funzione system ( ) :
sistema

( " awk ' - lo script awk qui - ' input_file.txt " ) ;

forche funzione, il sistema il processo di awk . Il vostro script perl attende il comando awk per finire prima di continuare l'esecuzione .
3

Fuga caratteri utilizzando una barra rovesciata nello script awk che perl può interpretare come comandi Perl, come ad esempio " $ ", e le virgolette . La chiamata può apparire come :
sistema

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

script awk stamperà la quinta e la sesta colonna di " input_file.txt " separati da un carattere di tabulazione .

• Perl Ogni vs Foreach 
• Come sostituire Opzioni in Regular Expression