Cómo utilizar Awk en Perl

Awk es una función de utilidad Unix puede utilizar para extraer los datos para el filtrado y la presentación de informes . Un comando awk se puede llamar directamente desde la línea de comandos , un guión o un guión Perl. Aunque un script awk no se puede escribir directamente en un script de perl , puede ejecutarlo mediante una llamada al sistema perl . Otros dos comandos, gawk y nawk , ofrecen alternativas a awk que se puede llamar desde perl de la misma manera . Instrucciones
1

Crea tu script de perl con la directiva intérprete perl localizar en el sistema. Esto es típicamente " #! /Usr /bin /perl " o " #! /Usr /local /bin /perl ", pero puede variar dependiendo de los parámetros del sistema en particular .
2

Ejecutar una llamada al sistema perl usando la función system () :
sistema

( " awk '- script awk aquí - ' input_file.txt ");

el sistema de horquillas de función el proceso de awk . La secuencia de comandos perl esperará el comando awk para terminar antes de que continúe la ejecución .
3 caracteres de escape

usando una barra invertida en el script awk que perl puede interpretar como comandos de Perl , como " $ " y las comillas . Su llamada puede ser:
sistema

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

awk script producirá la quinta y sexta columnas de " input_file.txt " separados por un carácter de tabulación .