PDA

Visualizza la versione completa : Leggere un insieme di file da una cartella


WormCT
16-07-2009, 10:55
Salve volevo chiedervi un aiuto, devo fare uno script che legge tutti i file contenuti in una cartella e mi ricerca un pattern all'interno dei file.

MARTEDI
16-07-2009, 14:41
$pattern="pattern";
$percorso_cartella="percorso cartella";
@dir=<$percorso_cartella/*.*>;
foreach $file(@dir)
{
open (FL,"$file");
while(<FL>)
{
if ($_ =~ /$pattern/)
{
push (@file_ok,$file);
last;
}
}
close (FL);
}

print "elenco dei file che contengono $pattern:\n";
foreach $file(@file_ok)
{print "- $file\n"}

Loading