fichiers et fonctions

fichiers et fonctions - Perl - Programmation

Marsh Posté le 07-12-2014 à 22:52:23    

Bonjour, j'ai une problématique face à un sujet : en effet, mon prof m'a envoyé un parcours d'une arborescence. Je ne vois pas la différence avec l'énonce. Le prof nous demande de nous servir de cette arborescence pour faire le code répondant à l'exercice.
 
Chercher dans un dossier donné, et ses sous-dossiers, tous les fichiers qui contiennent des lignes commençant par un mot donné et écrire dans un fichier rapport la liste des fichiers répondant au critère.
Le parcours du dossier devra se faire dans une fonction (utilisation de « sub ») distincte du reste du programme.
Le rapport sera présenté de la façon suivante :
 
Date : Thu Nov  7 10:01:41 2013
Dossier : /chemin/dossier
 
fichier1
ligne du fichier1 commençant par le mot cherché
ligne suivante du fichier1 commençant par le mot cherché
...
dernière ligne du fichier1 commençant par le mot cherché
 
fichier2
ligne du fichier2 commençant par le mot cherché
ligne suivante du fichier2 commençant par le mot cherché
 

Code :
  1. sub AnalyseDossier {
  2. # La fonction analyseDossier attend un seul paramètre qui est le nom du dossier qu'on veut analyser
  4. my $D= shift @_; # On recupere le nom du dossier...
  6. # ouverture du dossier $D et creation du descripteur REP
  7. opendir (REP,$D) or die ("Impossible d'ouvrir le repertoire ",$D);
  9. # On recupere les fichiers du descripteur REP dans @listFile
  10. # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  11. my @listFile = readdir (REP);
  13. # on ferme le descripteur
  14. close (REP);
  16. # Parcours des éléments du dossier $D, ils peuvent $etre des fichiers ou des dossiers
  17. foreach (@listFile) {
  18.  # Création du nom complet :
  19.  my $nomComplet = $D."/".$_;
  21.  # S'il s'agit d'un fichier on le traite via la fonction de traitement
  22.  if (-f $nomComplet) {
  23.   traitement($nomComplet);
  24.  }
  25.  # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
  26.  elsif (-d $nomComplet and $_ ne "." and $_ ne ".." ) {
  27.   # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
  28.   AnalyseDossier ($nomComplet);
  29.  }
  30. } # fin de foreach (@listFile)
  31. } # fin de fonction analyseDossier
  33. sub traitement {
  34. # Ici on se contente d'afficher le nom du fichier et sa taille
  36. # On récupère le paramètre passé à la fonction traitement :
  37. my $nomComplet = shift @_; # c'est le nom complet du fichier
  39. my $taille = -s  ($nomComplet);
  41. print "\n$nomComplet : $taille";
  43. } # fin de fonction traitement
  46. ###### PROGRAMME PRINCIPAL ######
  47. print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner";
  48. print "\nIl va afficher tous les fichiers et les sous-dossiers";
  49. print "\nPour chaque fichier, on affichera le nom et la taille";
  51. # saisie
  52. print "\n\nQuel dossier ? Entrez le nom complet\n";
  53. $D = <STDIN>;
  54. chomp $D;
  56. # traitement
  57. if (-d $D) {
  58. AnalyseDossier ($D);
  59. }
  60. else {
  61. die ("Impossible d'ouvrir le repertoire ",$D);
  62. }
  64. print "\n\nAu revoir !\n\n";

Reply

Marsh Posté le 07-12-2014 à 22:52:23   

Reply

Marsh Posté le 08-12-2014 à 11:49:07    

C'est le sub traitement, qui actuellement n'imprime que le nom complet, que tu dois modifier afin d'obtenir la sortie désirée par ton prof.
Un indice: jettes un œil à la fonction grep de perl, sachant que si tu as ouvert un fichier avec open(my $fh, '<', "mon_fichier" ), tu peu faire un grep /la bonne regexp/ <$fh> pour filtrer les lignes du fichier (et sachant aussi que la solution bateau attendue par ton prof sera une lecture ligne a ligne, un test (avec la même bonne regexp) pour chaque ligne et l'impression à la console si la ligne passe le test).
 
A+,

Message cité 1 fois
Message édité par gilou le 08-12-2014 à 12:20:58

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 11-12-2014 à 16:03:27    

gilou a écrit :

C'est le sub traitement, qui actuellement n'imprime que le nom complet, que tu dois modifier afin d'obtenir la sortie désirée par ton prof.
Un indice: jettes un œil à la fonction grep de perl, sachant que si tu as ouvert un fichier avec open(my $fh, '<', "mon_fichier" ), tu peu faire un grep /la bonne regexp/ <$fh> pour filtrer les lignes du fichier (et sachant aussi que la solution bateau attendue par ton prof sera une lecture ligne a ligne, un test (avec la même bonne regexp) pour chaque ligne et l'impression à la console si la ligne passe le test).
 
A+,


 
Bonjour, J'ai réussi à obtenir ce code. Qu'en pensez vous?
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  6. ######*PROGRAMME PRINCIPAL ######
  7. print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner";
  8. print "\nIl va afficher tous les fichiers et les sous-dossiers";
  9. print "\nPour chaque fichier, on affichera le nom et la taille";
  10. print "\nPour chaque fichier on recherche la correspondance d'un mot en début de ligne";
  11. print "\nOn écrit le résultat dans le fichier Rapport.txt\n\n";
  13. # saisie
  14. print "\n\nQuel dossier ? Entrez le nom complet\n";
  15. my $D = <STDIN>;
  16. chomp $D;
  18. print "\n\nEntrez le mot recherché :\n";
  19. my $M = <STDIN>;
  20. chomp $M;
  22. print "$D - $M\n";
  23. open my $FH_OUT, '>:utf8', './Rapport.txt' or die "ouverture impossible de Rapport.txt $!";     # ouverture du fichier rapport
  24. print $FH_OUT date();
  25. print $FH_OUT "\nDossier : $D - Mot recherché : $M\n\n";;
  27. # traitement
  28. if (-d $D) {
  29. AnalyseDossier ($D);
  30. }
  31. else {
  32. die ("Impossible d'ouvrir le repertoire ",$D);
  33. }
  34. close $FH_OUT;
  35. print "\n\nAu revoir !\n\n";
  37. sub AnalyseDossier {
  38. # La fonction analyseDossier attend un seul paramètre qui est le nom du dossier qu'on veut analyser
  40. my $D= shift @_; # On recupere le nom du dossier...
  42. # ouverture du dossier $D et creation du descripteur REP
  43. opendir (REP,$D) or die ("Impossible d'ouvrir le repertoire ",$D);
  45. # On recupere les fichiers du descripteur REP dans @listFile
  46. # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  47. my @listFile = readdir (REP);
  49. # on ferme le descripteur
  50. close (REP);
  52. # Parcours des éléments du dossier $D, ils peuvent $etre des fichiers ou des dossiers
  53. foreach (@listFile) {
  54.  # Création du nom complet :
  55.  my $nomComplet = $D."/".$_;
  57.  # S'il s'agit d'un fichier on le traite via la fonction de traitement
  58.  if (-f $nomComplet) {
  59.   traitement($nomComplet);
  60.  }
  61.  # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
  62.  elsif (-d $nomComplet and $_ ne "." and $_ ne ".." ) {
  63.   # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
  64.   AnalyseDossier ($nomComplet);
  65.  }
  66. } # fin de foreach (@listFile)
  67. } # fin de fonction analyseDossier
  69. sub traitement {
  70. # Ici on se contente d'afficher le nom du fichier et sa taille
  72. # On récupère le paramètre passé à la fonction traitement :
  73. my $nomComplet = shift @_; # c'est le nom*complet du fichier
  75. my $taille = -s  ($nomComplet);
  77. print $FH_OUT "\n\n$nomComplet : $taille\n";
  78. open my $FH_IN, "<:utf8", $nomComplet or die "ouverture impossible de $nomComplet $!";     # ouverture du fichier courant en lecture
  79. while (my $ligne = <$FH_IN> ) {                      # lecture du fichier courant
  80.  if ( $ligne =~ /^$M/ ) {                          # recherche du motif en début de ligne
  81.   print $FH_OUT "$ligne";
  82.  }
  83. }
  84. close $FH_IN;                                       # la fermeture du handle
  86. } # fin de fonction traitement
  88. ###############
  89. # Date et Heure
  90. sub date {
  91.   my $time = shift || time;    #$time par defaut vaut le time actuel
  92.   my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
  93.     = localtime($time);
  94.   $mois  += 1;
  95.   $annee += 1900;
  97.   # On rajoute 0 si le chiffre est compris entre 1 et 9
  98.   foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) { s/^(\d)$/0$1/; }
  99.   return "Le $jour/$mois/$annee à $heure:$minute:$seconde";
  100. }


 
 

Reply

Marsh Posté le 11-12-2014 à 19:12:03    

Je pense que déjà, ça serait sympa si vous formatiez et aériez le code.
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5.  
  6. ######*PROGRAMME PRINCIPAL ######
  7. print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner";
  8. print "\nIl va afficher tous les fichiers et les sous-dossiers";
  9. print "\nPour chaque fichier, on affichera le nom et la taille";
  10. print "\nPour chaque fichier on recherche la correspondance d'un mot en début de ligne";
  11. print "\nOn écrit le résultat dans le fichier Rapport.txt\n\n";
  12. # saisie
  13. print "\n\nQuel dossier ? Entrez le nom complet\n";
  14. my $D = <STDIN>;
  15. chomp $D;
  16. print "\n\nEntrez le mot recherché :\n";
  17. my $M = <STDIN>;
  18. chomp $M;
  19. print "$D - $M\n";
  20. open my $FH_OUT, '>:utf8', './Rapport.txt' or die "ouverture impossible de Rapport.txt $!"; # ouverture du fichier rapport
  21. print $FH_OUT date();
  22. print $FH_OUT "\nDossier : $D - Mot recherché : $M\n\n";;
  23. # traitement
  24. if (-d $D) {
  25.   AnalyseDossier ($D);
  26. } else {
  27.   die ("Impossible d'ouvrir le repertoire ",$D);
  28. }
  29. close $FH_OUT;
  30. print "\n\nAu revoir !\n\n";
  31.  
  32.  
  33. sub AnalyseDossier {
  34.   # La fonction analyseDossier attend un seul paramètre qui est le nom du dossier qu'on veut analyser
  35.   my $D= shift @_;        # On recupere le nom du dossier...
  36.   # ouverture du dossier $D et creation du descripteur REP
  37.   opendir (REP,$D) or die ("Impossible d'ouvrir le repertoire ",$D);
  38.   # On recupere les fichiers du descripteur REP dans @listFile
  39.   # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  40.   my @listFile = readdir (REP);
  41.   # on ferme le descripteur
  42.   close (REP);
  43.   # Parcours des éléments du dossier $D, ils peuvent $etre des fichiers ou des dossiers
  44.   foreach (@listFile) {
  45.     # Création du nom complet :
  46.     my $nomComplet = $D."/".$_;
  47.     # S'il s'agit d'un fichier on le traite via la fonction de traitement
  48.     if (-f $nomComplet) {
  49.       traitement($nomComplet);
  50.     }
  51.     # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
  52.     elsif (-d $nomComplet and $_ ne "." and $_ ne ".." ) {
  53.       # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
  54.       AnalyseDossier ($nomComplet);
  55.     }
  56.   }                # fin de foreach (@listFile)
  57. }                # fin de fonction analyseDossier
  58.  
  59.  
  60. sub traitement {
  61.   # Ici on se contente d'afficher le nom du fichier et sa taille
  62.   # On récupère le paramètre passé à la fonction traitement :
  63.   my $nomComplet = shift @_;    # c'est le nom*complet du fichier
  64.   my $taille = -s  ($nomComplet);
  65.   print $FH_OUT "\n\n$nomComplet : $taille\n";
  66.   open my $FH_IN, "<:utf8", $nomComplet or die "ouverture impossible de $nomComplet $!"; # 
  67.  
  68. ouverture du fichier courant en lecture
  69.   while (my $ligne = <$FH_IN> ) { # lecture du fichier courant
  70.     if ( $ligne =~ /^$M/ ) {    # recherche du motif en début de ligne
  71.       print $FH_OUT "$ligne";
  72.     }
  73.   }
  74.   close $FH_IN;            # la fermeture du handle
  75. }
  76.  
  77.                 # fin de fonction traitement
  78. ###############
  79. # Date et Heure
  80. sub date {
  81.   my $time = shift || time;    #$time par defaut vaut le time actuel
  82.   my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, 
  83.  
  84. $heure_hiver_ou_ete )
  85.     = localtime($time);
  86.   $mois  += 1;
  87.   $annee += 1900;
  88.   # On rajoute 0 si le chiffre est compris entre 1 et 9
  89.   foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) {
  90.     s/^(\d)$/0$1/;
  91.   }
  92.   return "Le $jour/$mois/$annee à $heure:$minute:$seconde";
  93. }


 
A+,


Message édité par gilou le 11-12-2014 à 19:13:37

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 12-12-2014 à 15:23:26    

Je n'ai pas testé l'ensemble, mais c'est l'idée.
 
Quelques remarques:
- éviter les  
 
print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner";
print "\nIl va afficher tous les fichiers et les sous-dossiers";
print "\nPour chaque fichier, on affichera le nom et la taille";
print "\nPour chaque fichier on recherche la correspondance d'un mot en début de ligne";
print "\nOn écrit le résultat dans le fichier Rapport.txt\n\n";
 
et utiliser plutôt ce style:
 
print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner\n";
print "Il va afficher tous les fichiers et les sous-dossiers\n";
print "Pour chaque fichier, on affichera le nom et la taille\n";
print "Pour chaque fichier on recherche la correspondance d'un mot en début de ligne\n";
print "On écrit le résultat dans le fichier Rapport.txt\n\n";
 
Ce n'est peut être pas important en Perl, mais il y a pas mal de langages ou le fait d'avoir un \n en fin de texte a afficher est significatif (ie déclenche l'affichage).
 
- my $D= shift @_;   a remplacer par my $D= shift;  
C'est la même chose, mais c'est la pratique courante, de ne pas écrire les variables implicites quand c'est évident.
 
idem ici:
while (my $ligne = <$FH_IN> ) { # lecture du fichier courant
    if ( $ligne =~ /^$M/ ) { # recherche du motif en début de ligne
      print $FH_OUT "$ligne";
    }
 
la pratique pour ce genre de boucle simple serait plutôt d'écrire
while (<$FH_IN> ) { # lecture du fichier courant
    if ( /^$M/ ) { # recherche du motif en début de ligne
      print $FH_OUT $_;
    }
avec la variable implicite $_
 
- d'autre part, réserver les majuscules aux variables globales: $FH_IN -> $fh_in
 
 
 
opendir (REP,$D) or die ("Impossible d'ouvrir le repertoire ",$D);
  # On recupere les fichiers du descripteur REP dans @listFile
  # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  my @listFile = readdir (REP);
  # on ferme le descripteur
  close (REP);
 
Primo, l'erreur: ça doit être closedir et non pas close.
D'autre part, aucune raison de ne pas utiliser des variables locales:
opendir (my $rep, $D) or die ("Impossible d'ouvrir le repertoire ",$D);
  # On recupere les fichiers du descripteur $rep dans @listFile
  # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  my @listFile = readdir ($rep);
  # on ferme le descripteur
  closedir ($rep);
 
- plutôt que faire un test complexe  
elsif (-d $nomComplet and $_ ne "." and $_ ne ".." )
autant éliminer . et .. a la source:
my @listFile = grep !/^\.{1,2}$/o, readdir ($rep);
 
- enfin
foreach (@listFile) {
    # Création du nom complet :
    my $nomComplet = $D."/".$_;
    # S'il s'agit d'un fichier on le traite via la fonction de traitement
    if (-f $nomComplet) {
      traitement($nomComplet);
    }
    # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
    elsif (-d $nomComplet) {
      # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
      AnalyseDossier ($nomComplet);
    }
  }
 
un elseif pas suivi de else, j'aime pas.
Ce serait plus simple ainsi:
foreach (@listFile) {
    # Création du nom complet :
    my $nomComplet = $D."/".$_;
    # S'il s'agit d'un fichier on le traite via la fonction de traitement
    if (-f $_) {
      traitement($nomComplet);
      next;
    }
    # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
    if (-d $_) {
      AnalyseDossier ($nomComplet);
      next;
    }
  }
 et c'est probablement plus optimisé en faisant if (-d _) (après un premier test de fichier -f, -d, ... la variable _ contient les infos relatives au fichier, pour être réutilisée avec d'autres tests de fichier, sinon, chaque test fait un appel système fstat ou stat, ce qui est plus long)
 
 
- pensez aussi à utiliser  
use autodie;
 
ce qui permet de remplacer
open my $FH_OUT, '>:utf8', './Rapport.txt' or die "ouverture impossible de Rapport.txt $!"; # ouverture du fichier rapport
par
open my $FH_OUT, '>:utf8', './Rapport.txt';
(bon, vérifier quand même en quelle langue sera le message d'erreur automatique dans ce dernier cas)
 
A+,


Message édité par gilou le 12-12-2014 à 15:23:49

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 12-12-2014 à 23:49:16    

[quotemsg=2245900,5,19304]Je n'ai pas testé l'ensemble, mais c'est l'idée.
 
Quelques remarques:
- éviter les  
 
print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner";
print "\nIl va afficher tous les fichiers et les sous-dossiers";
print "\nPour chaque fichier, on affichera le nom et la taille";
print "\nPour chaque fichier on recherche la correspondance d'un mot en début de ligne";
print "\nOn écrit le résultat dans le fichier Rapport.txt\n\n";
 
et utiliser plutôt ce style:
 
print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner\n";
print "Il va afficher tous les fichiers et les sous-dossiers\n";
print "Pour chaque fichier, on affichera le nom et la taille\n";
print "Pour chaque fichier on recherche la correspondance d'un mot en début de ligne\n";
print "On écrit le résultat dans le fichier Rapport.txt\n\n";
 
Ce n'est peut être pas important en Perl, mais il y a pas mal de langages ou le fait d'avoir un \n en fin de texte a afficher est significatif (ie déclenche l'affichage).
 
- my $D= shift @_;   a remplacer par my $D= shift;  
C'est la même chose, mais c'est la pratique courante, de ne pas écrire les variables implicites quand c'est évident.
 
idem ici:
while (my $ligne = <$FH_IN> ) { # lecture du fichier courant
    if ( $ligne =~ /^$M/ ) { # recherche du motif en début de ligne
      print $FH_OUT "$ligne";
    }
 
la pratique pour ce genre de boucle simple serait plutôt d'écrire
while (<$FH_IN> ) { # lecture du fichier courant
    if ( /^$M/ ) { # recherche du motif en début de ligne
      print $FH_OUT $_;
    }
avec la variable implicite $_
 
- d'autre part, réserver les majuscules aux variables globales: $FH_IN -> $fh_in
 
 
 
opendir (REP,$D) or die ("Impossible d'ouvrir le repertoire ",$D);
  # On recupere les fichiers du descripteur REP dans @listFile
  # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  my @listFile = readdir (REP);
  # on ferme le descripteur
  close (REP);
 
Primo, l'erreur: ça doit être closedir et non pas close.
D'autre part, aucune raison de ne pas utiliser des variables locales:
opendir (my $rep, $D) or die ("Impossible d'ouvrir le repertoire ",$D);
  # On recupere les fichiers du descripteur $rep dans @listFile
  # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  my @listFile = readdir ($rep);
  # on ferme le descripteur
  closedir ($rep);
 
- plutôt que faire un test complexe  
elsif (-d $nomComplet and $_ ne "." and $_ ne ".." )
autant éliminer . et .. a la source:
my @listFile = grep !/^\.{1,2}$/o, readdir ($rep);
 
- enfin
foreach (@listFile) {
    # Création du nom complet :
    my $nomComplet = $D."/".$_;
    # S'il s'agit d'un fichier on le traite via la fonction de traitement
    if (-f $nomComplet) {
      traitement($nomComplet);
    }
    # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
    elsif (-d $nomComplet) {
      # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
      AnalyseDossier ($nomComplet);
    }
  }
 
un elseif pas suivi de else, j'aime pas.
Ce serait plus simple ainsi:
foreach (@listFile) {
    # Création du nom complet :
    my $nomComplet = $D."/".$_;
    # S'il s'agit d'un fichier on le traite via la fonction de traitement
    if (-f $_) {
      traitement($nomComplet);
      next;
    }
    # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
    if (-d $_) {
      AnalyseDossier ($nomComplet);
      next;
    }
  }
 et c'est probablement plus optimisé en faisant if (-d _) (après un premier test de fichier -f, -d, ... la variable _ contient les infos relatives au fichier, pour être réutilisée avec d'autres tests de fichier, sinon, chaque test fait un appel système fstat ou stat, ce qui est plus long)
 
 
- pensez aussi à utiliser  
use autodie;
 
ce qui permet de remplacer
open my $FH_OUT, '>:utf8', './Rapport.txt' or die "ouverture impossible de Rapport.txt $!"; # ouverture du fichier rapport
par
open my $FH_OUT, '>:utf8', './Rapport.txt';
(bon, vérifier quand même en quelle langue sera le message d'erreur automatique dans ce dernier cas)
 
Bonjour,
 
Voici la modification, Seulement voila le fichier . txt ne se génére pas prq?
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use utf8;
  5. use autodie;
  7. ######*PROGRAMME PRINCIPAL ######
  8. print "\nCe programme parcourt toute l'arborescence d'un dossier que vous allez donner\n";
  9. print "Il va afficher tous les fichiers et les sous-dossiers\n";
  10. print "Pour chaque fichier, on affichera le nom et la taille\n";
  11. print "Pour chaque fichier on recherche la correspondance d'un mot en début de ligne\n";
  12. print "On écrit le résultat dans le fichier Rapport.txt\n\n";
  14. # saisie
  16. print "\n\nQuel dossier ? Entrez le nom complet\n";
  17. my $D = <STDIN>;
  18. chomp $D;
  20. print "\n\nEntrez le mot recherché :\n";
  21. my $M = <STDIN>;
  22. chomp $M;
  24. print "$D - $M\n";
  25. open my $FH_OUT, '>:utf8', './Rapport.txt';  # ouverture du fichier rapport
  26. print $FH_OUT date();
  27. print $FH_OUT "\nDossier : $D - Mot recherché : $M\n\n";;
  29. # traitement
  31. if (-d $D) {
  32. AnalyseDossier ($D);
  33. }
  34. else {
  35. die ("Impossible d'ouvrir le repertoire ",$D);
  36. }
  37. close $FH_OUT;
  38. print "\n\nAu revoir !\n\n";
  40. sub AnalyseDossier {
  42. # La fonction analyseDossier attend un seul paramètre qui est le nom du dossier qu'on veut analyser
  44. my $D= shift; # On recupere le nom du dossier...
  46. # ouverture du dossier $D et creation du descripteur REP
  48. opendir (my $rep, $D) or die ("Impossible d'ouvrir le repertoire ",$D);
  50. # On recupere les fichiers du descripteur REP dans @listFile
  51. # Notez bien que @listFile peut contenir à la fois des dossiers et des fichiers
  53. my @listFile = grep !/^\.{1,2}$/o, readdir ($rep);
  55. # on ferme le descripteur
  57. closedir ($rep);
  59. # Parcours des éléments du dossier $D, ils peuvent $etre des fichiers ou des dossiers
  61. foreach (@listFile) {
  62.  # Création du nom complet :
  63.  my $nomComplet = $D."/".$_;
  65.  # S'il s'agit d'un fichier on le traite via la fonction de traitement
  66.  if (-f $_) {
  67.   traitement($nomComplet);
  68.   next;
  69.  }
  70.  # sinon s'il s'agit d'un dossier autre que les dossiers . et ..
  72.  if (-d $_)  {
  73.   # ... on lance un nouvel appel récursif à notre fonction, sur ce dossier là :
  74.   AnalyseDossier ($nomComplet);
  75.   next;
  76.  }
  77. } # fin de foreach (@listFile)
  78. } # fin de fonction analyseDossier
  80. sub traitement {
  82. # Ici on se contente d'afficher le nom du fichier et sa taille
  84. # On récupère le paramètre passé à la fonction traitement :
  86. my $nomComplet = shift @_; # c'est le nom complet du fichier
  88. my $taille = -s  ($nomComplet);
  90. print $FH_OUT "\n\n$nomComplet : $taille\n";
  91. open my $fh_in, "<:utf8", $nomComplet or die "ouverture impossible de $nomComplet $!";  # ouverture du fichier courant en lecture
  92. while ( <$fh_in> ) {     # lecture du fichier courant
  93.  if ( /^$M/ ) {       # recherche du motif en début de ligne
  94.   print $FH_OUT $_;
  95.  }
  96. }
  97. close $fh_in;  # la fermeture du handle
  99. } # fin de fonction traitement
  101. ###############
  102. # Date et Heure
  104. sub date {
  105.   my $time = shift || time;    #$time par defaut vaut le time actuel
  106.   my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
  107.     = localtime($time);
  108.   $mois  += 1;
  109.   $annee += 1900;
  111.   # On rajoute 0 si le chiffre est compris entre 1 et 9
  112.  
  113.   foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) { s/^(\d)$/0$1/; }
  114.   return "Le $jour/$mois/$annee à $heure:$minute:$seconde";
  115. }


Message édité par laisso le 13-12-2014 à 00:21:07
Reply

Marsh Posté le 13-12-2014 à 04:05:48    

Oui, j'avais lu un peu trop vite le code, si tu remplaces les tests
if (-f $_) et if (-d $_)
par
if (-f $nomComplet) et if (-d $nomComplet)
ça marchera.
Habituellement, je fais un cd dans le répertoire pour utiliser directement la liste retournée par opendir
 
un petit conseil: remplaces le test if (-f $nomComplet) par if (-T $nomComplet) vu que seuls les fichiers texte t'intéressent.
Ou j'aurais gardé -f et testé pour -T avant ouverture du fichier si tu veux lister les fichier non texte
 
 
Notes que en Perl, un principe de base est d'utiliser les modules déjà existant.
J'aurais utilisé File::Find  (use File::Find; en tête) et remplacé une partie de ton code par
 

Code :
  1. # traitement
  2. if (-d $D) {
  3.   find(\&wanted, $D);
  4. }
  5. else {
  6.   die ("Impossible d'ouvrir le repertoire ",$D);
  7. }
  8. close $FH_OUT;
  9. print "\n\nAu revoir !\n\n";
  10.  
  11. sub wanted {
  12.   if (-f $_) {
  13.     my $taille = -s _;
  14.     print $FH_OUT "\n\n$File::Find::dir/$_ : $taille\n";
  15.     if (-T _) {
  16.         traitement($_);
  17.     }
  18.     return;
  19.   }
  20. }
  21.  
  22. sub traitement {
  23. open my $fh_in, "<:utf8", shift;  # ouverture du fichier courant en lecture
  24. while ( <$fh_in> ) {     # lecture du fichier courant
  25.   if ( /^$M/ ) {       # recherche du motif en début de ligne
  26.     print $FH_OUT $_;
  27.   }
  28. }
  29. close $fh_in;  # la fermeture du handle
  30. } # fin de fonction traitement


 
find(\&wanted, $D); va faire un parcours récursif de $D et ses sous répertoires, et pour chaque fichier ou répertoire, il va appeler la sub wanted (on peut la renommer si on veut) avec le nom du fichier/répertoire dans $_ et son répertoire dans $File::Find::dir, et de plus, ça vire les cas de '.' et '..' automatiquement
A+,


Message édité par gilou le 13-12-2014 à 12:45:45

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 13-12-2014 à 11:08:01    

Merci c'est résolu.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed