Perl: tableau+proprietes fichier [Fermé]

Signaler
Messages postés
25
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
12 septembre 2008
-
Messages postés
25
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
12 septembre 2008
-
Bonjour à la communauté, voici un script qui affiche la liste des fichiers contenant le mot "successfully" le pb est que d'un je voudrais que le resultat soit sous forme de tableau en fixant les entetes nom, statut(successfully), date et de 2 la date est celle retrouve dans les proprietes du fichier(date de derniere modification) aidez moi
#!/usr/bin/perl -w
use strict;
use warnings;
my $fich;
my $rep;

print "donner le chemin du repertoire:\n";
$rep=<stdin>;
chomp $rep;
opendir(DIR,"$rep") or die "repertoire introuvable";
my @tab=readdir(DIR);
while(defined($fich=readdir(DIR)))
{ print"$fich\n";}
closedir(DIR);
my $msg="statut ok ";
foreach (@tab) {
next if -d $_;
my $full_path= "$rep/$_";
open reader,"< $full_path" or die "le fichier n'existe pas !\n";
open writer,">> results.doc" or die "le fichier ne peut etre edite !\n";
my @ligne=<reader>;
my $chaine="successfully";
foreach (@ligne)
{ if ( $_=~/$chaine/)
{print writer $full_path.$msg;}
}
}
close reader;
close writer;
exit;

1 réponse

Messages postés
25
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
12 septembre 2008
2
slt y'a t-il personne pour me mettresur la voie?