[FoLUG] Perl e awk

[Conte Piero]

Buongiorno a tutti,

vorrei richiamare awk da perl per farmi estrarre i campi si in file di
testo.

Ho fatto lo script che segue e spiego:

#! /usr/bin/perl

#apre il file con percorso specificato attribuendo handler FILE
open (FILE, "< /var/spool/lpd/filters/perl_prova/filein") || die
"Errore\n\n";

#legge il file fino ad EOF. per oni record avvalora la variabile $riga
 	while ( !eof (FILE)) {
		$riga = <FILE> ;

		a questo punto vorrei elaborare riga con awk in modo che mi divida $riga
		nei campi contenuti e ricevere sul perl i vari campi

		awk $riga; ???????????????????????????????



Qualcuno mi aiuta a chiudere il problema??

Ringrazio e saluto

Piero



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004