Perl: tableau+proprietes fichier

Fermé

tchabat Messages postés 25 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 12 septembre 2008 - 2 févr. 2008 à 17:26
tchabat Messages postés 25 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 12 septembre 2008 - 5 févr. 2008 à 07:55

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;

A voir également:

Perl: tableau+proprietes fichier
Denon perl pro test - Accueil - Audio
Active perl - Télécharger - Édition & Programmation
Perl foreach ✓ - Forum Perl
Perl substitution ✓ - Forum Perl
[Perl] WWW::Mechanize - Forum Perl

1 réponse

Réponse 1 / 1

tchabat Messages postés 25 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 12 septembre 2008 2
5 févr. 2008 à 07:55

slt y'a t-il personne pour me mettresur la voie?

Discussions similaires

Extension fichier sous perl

Bonjour,
Voilà je vous explique, je suis en formùation devellopeur informatique depui plusieurs mois, et la j'ai un exposé a faire sur le language Perl!!
J'ai trouvé pas mal d'infos, language de prog qui permet de faire des scripts Orienté Objet, ...

Mais j'ai juste un souçi, voila je sais programmer avec différentes appli en autre Scite sous laquelle je prog en VBscript, C#, et pour ces 2 la il suffis d'enregistrer le fichier text en *.VBS ou *.CCS!!!

Ma grande question est quel est l'extension utilisé pour les script PERL?

Merci pour vos reponsses car c'est plutot urgent car mon exposé et vendredi de la semaine prochaine.

PERL Split

Bonjour,

J'ai besoin de vos lumières svp. J'ai un fichier du type:

my %toto => ( 'AAAAAA' =>{ 'uuu' => [ 'toto','tata', 'mouloud' ] } );

Je voudrais le placer dans un tableau en découpant la ligne en bloc avec ''. J'ai essayé avec split mais ca ne marche pas :

my @tab = split (' ' , $tabFichier[$_] ;

Est ce que vous pouvez m'aider ?
Merci d'avance.

Tableau(perl)

Bonjour,
SVP , dans mon script,j'ai fait plusieurs traitements sur des données,entre autre la création d'un tableau et la mise de quelques données dans ce tableau. j'ai besoin maintenant de diriger ce tableau vers un nouveau fichier :s
how can i do it ?!!!
merci pour vos réponses :)

perl Makefile.PL

Bonjour,
je bosse sur un projet avec debian ke j ai installe sur virtualbox et la je dois effectuer ceci pour avancer https://sitemap.softfamous.com/
mais le veritable probleme c est que lorsque je tape perl Makefile.PL sur mon terminal linux j obtiens Can't open perl script "Makefile.PL": No such file or directory .
suis que un debutant et je sais pas si quelqu'un pourrait m expliquer pas a pas comment y arriver merci.

Configuration: Windows XP / Chrome 23.0.1271.95

PERL -- liste

bonjour,

je suis en train de faire un script sous perl et je recupere des donnees dans une liste @liste_val
mon probleme c est qu il me renvoit les donnees dans n importe quel ordre..comment faire pour eviter ca?

au fait rassurez moi, est ce que qq un fait un peu de perl ici ??
parce que chaque fois qu une question est posee sur perl, il n y a jamais de reponses...et moi je ne peux pas y repondre non plus d ailleurs , car je masterise pas encore assez !!!

=======
Cosmocats