PERL – “Perl -c” ricorsivo

Pubblicato il da

In PERL, viene usato il comando “Perl -c” per verificare la sintassi di uno script. Questo codice permette di lanciare il comando e controllare tutti i file di una directory.

#!/usr/bin/perl

# Esegue il perl -c controllando la sintassi di tutti
# i file della directory specificata con estensione .cgi

opendir (MIA, “/data/SIVE/ui”) || die “Non posso leggere la Directory specificata: $!n”;

@file_pl = grep /.+.cgi$/, readdir MIA;
close MIA;

foreach $file (@file_pl) {
system (“perl -c $file”);
}

PERL – “Perl -c” ricorsivoultima modifica: 2009-12-09T21:38:00+01:00da daytube
Reposta per primo quest’articolo