Cómo usar awk en Perl

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

Instrucciones

1 Crear el script de perl con la directiva intérprete de localización de Perl en su sistema. Esto es típicamente "#! / Usr / bin / perl" o "#! / Usr / local / bin / perl local", pero puede variar dependiendo de los parámetros del sistema en particular.

2 Ejecutar una llamada al sistema Perl usando el sistema de la función ():

( " 'Script de awk --su aquí--' awk input_file.txt") del sistema;

Las horquillas de función del sistema del proceso awk. Su script Perl esperará a que el comando awk para terminar antes de que continúe la ejecución.

3 Escapar caracteres usando una barra invertida en el script de perl que awk puede interpretar comandos como Perl, tales como "$" y las comillas. Su llamada puede verse como:

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

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