utilisation d'un fichier d'initialisation

utilisation d'un fichier d'initialisation - Perl - Programmation

Marsh Posté le 09-03-2016 à 10:34:59    

Bonjour à tous,
 
Je souhaiterai utiliser un  fichier d'initialisation pour ne plus faire apparaître les arborescences dans mon programme.
Parce que le code que j'utilisais possédé les différentes arborescence et je souhaite m'en débarrasser :

Code :
  1. use strict;
  2. use warnings;
  4. sub GetFilesList
  5. {
  6.         my $Path = $_[0];
  7.         my $FileFound;
  8.         my @FilesList=();
  10.         ## Lecture de la liste des fichiers
  11.         opendir (my $FhRep, $Path)
  12.                 or die "Impossible d'ouvrir le repertoire $Path\n";
  13.         my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
  14.         closedir ($FhRep);
  16.         foreach my $FileFound (@Contenu) {
  17.                 ## Traitement des fichiers
  18.                 if ( -f "$Path/$FileFound" ) {
  19.                         push ( @FilesList, "$Path/$FileFound" );
  20.                 }
  21.                 ## Traitement des repertoires
  22.                 elsif ( -d "$Path/$FileFound" ) {
  23.                         ## Boucle pour lancer la recherche en mode recursif
  24.                         push (@FilesList, GetFilesList("$Path/$FileFound" ) );
  25.                 }
  27.         }
  28.         return @FilesList;
  29. }
  30. my @Files = GetFilesList ('C

    Spoiler :

    :/Users/baranowp/Documents/2016_01_07_08

    /facture/');

  31. foreach my $File  (@Files) {
  32. next unless $File =~ /\.txt$/i;
  33. print "$File \n";
  34. }
  35. @Files = GetFilesList ('C:/

    Spoiler :

    Users/baranowp/Documents/2016_02_04_05/

    bulletin_paie/');

  36. foreach my $File  (@Files) {
  37. next unless $File =~ /\.txt$/i;
  38. print "$File \n";
  39. }


Ce code m'affiche tout les fichiers de type txt se trouvant dans le répertoire facture et bulletin_paie.
 
Je souhaite utiliser un fichier d'initialisation pour remédier à ce problème.
 
Voici le contenu de ce fichier d'initialisation param.ini :
[repertoire]
REP_FACTURE=C:\

Spoiler :

Users\baranowp\Documents\2016_01_07_08

\facture\
REP_BULLETIN=C:\

Spoiler :

Users\baranowp\Documents\2016_02_04_05\

bulletin_paie\
 
Voici le code que j'utilise en ce moment :

Code :
  1. use strict;
  2. use warnings;
  4. my $Message_div = "";
  6. if ($ARGV[0] eq "" )
  7. {
  8. $Message_div="Erreur dans le nb argument(s) dans le fichier parametre .txt";
  9. }
  10. else
  11. {
  12. my $Fichier_ini = "$ARGV[0]";
  13. my $Path = "";
  14. my $FhRep = "";
  16. open (Fic_util_ini,"$Fichier_ini" );
  17. while (my $ln_ligne =<Fic_util_ini> )
  18. {
  19.  my $l1="";
  20.  my $l2="";
  21.  ($l1, $l2) = split('=',$ln_ligne, 2);
  23.  if ($l1 eq "REP_FACTURE" )
  24.  {
  25.   my $RepFacture=$l2;
  26.  }
  28.  if ($l2 eq "REP_BULLETIN" )
  29.  {
  30.   my $RepBulletin=$l2;
  31.  }
  32. }
  33. }
  34. close Fic_util_ini;


Je ne vois pas coment je peux utiliser la fonction GetFilesList dans mon programme, et je ne sais pas si mon programme fait appel à mon fichier d'initialisation.
 
J'espère que mes explications sont claires, si vous voulez plus d'informations n'hésiter pas.
 
Cordialement

Reply

Marsh Posté le 09-03-2016 à 10:34:59   

Reply

Marsh Posté le 09-03-2016 à 16:36:54    

Pourquoi faire ça à la main, alors qu'il y a déjà des modules pour cela:
Config::IniFiles, Config::Simple ou Config::Ini (ou d'autres)
Choisis celui le plus adapté à tes besoins.
 
Par exemple, avec Config::IniFiles  (je te déconseille Config::Simple, j'ai testé, et il est pas très pratique)
 
use Config::IniFiles;
......
my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
....
my $RepFacture  = $cfg->val('repertoire', 'REP_FACTURE');
my $RepBulletin = $cfg->val('repertoire', 'REP_BULLETIN');
 
A+,


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

Marsh Posté le 09-03-2016 à 16:40:42    

En faisant ce que tu me dis est ce qu'il va m'afficher tout les fichiers .txt qui se trouve dans le répertoire facture ?  
Idem pour le répertoire bulletin_paie ?
 
Je vais essayer ta méthode je te tiens au courant au plus vite.
 
Merci pour ton aide.

Reply

Marsh Posté le 09-03-2016 à 18:13:07    

Le code de gilou te sortira les chemins d'accèss de ton .ini, faudra ensuite appeler GetFilesList() avec (ou une fonction semblable).

Reply

Marsh Posté le 09-03-2016 à 22:29:46    

Oui, le code que je t'ai donné, c'est pour exploiter ton .ini
 
Pour le reste, tu pourrais utiliser ta fonction GetFileList, mais la encore, il y a un module (standard) pour cela (et bien plus): File::Find
 

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Config::IniFiles;
  5. use File::Find;
  6. use File::Spec;
  7.  
  8. my @directories_to_process;
  9. my @filelist;
  10.  
  11. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  12. foreach ('REP_FACTURE','REP_BULLETIN') {
  13.   push @directories_to_process, $cfg->val('repertoire', $_) if $cfg->val('repertoire', $_);
  14. }
  15. find(\&wanted, @directories_to_process);
  16. sub wanted {
  17.   push @filelist, File::Spec->canonpath($File::Find::name) if (-f $_);
  18. }


find fait le parcours récursif et appelle wanted pour chaque repertoire ou fichier trouvé
si c'est un fichier ( if (-f $_)) on ajoute à la liste le nom avec son path absolu à la liste (push @filelist, $File::Find::name)
Mais comme find met les noms (relatifs) sous forme unix, on remet ça en forme avant avec canonpath.
 
A+,
 
 
 
 


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

Marsh Posté le 10-03-2016 à 09:53:00    

Bonjour,
 
Je viens d'instyaller Strawberry perl
 
lorsque j'exécute mon programme dans Powershell j'utilise la commande la suivante :
 
perl.exe C:\Users\baranowp\Documents\2016_03_07_11\param.pl C:\Users\baranowp\Documents\2016_03_07_11\param.ini
 
J'obtiens ce message d'erreur :
Can't locate Config/IniFiles.pm in @INC (you may need to install the Config::IniFiles module) (@INC contains: C:/Strawberry/perl/site/lib C:/Strawberry/perl/vendor/lib C:/Strawberry/perl/lib .) at C:\Users\baranowp\Documents\2016_03_07_11\param.pl line 3.
BEGIN failed--compilation aborted at C:\Users\baranowp\Documents\2016_03_07_11\param.pl line 3.
 
Et lorsque j'exécute mon programme depuis Geany j'obtiens :
' perl' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.

Message cité 1 fois
Reply

Marsh Posté le 10-03-2016 à 13:23:00    

Reply

Marsh Posté le 10-03-2016 à 14:10:09    

solerian a écrit :

Bonjour,
 
Je viens d'instyaller Strawberry perl
 
lorsque j'exécute mon programme dans Powershell j'utilise la commande la suivante :
 
perl.exe C:\Users\baranowp\Documents\2016_03_07_11\param.pl C:\Users\baranowp\Documents\2016_03_07_11\param.ini
 
J'obtiens ce message d'erreur :
Can't locate Config/IniFiles.pm in @INC (you may need to install the Config::IniFiles module) (@INC contains: C:/Strawberry/perl/site/lib C:/Strawberry/perl/vendor/lib C:/Strawberry/perl/lib .) at C:\Users\baranowp\Documents\2016_03_07_11\param.pl line 3.
BEGIN failed--compilation aborted at C:\Users\baranowp\Documents\2016_03_07_11\param.pl line 3.
 
Et lorsque j'exécute mon programme depuis Geany j'obtiens :
' perl' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.

Ca te dit qu'il manque le module Config::IniFiles et qu'il faut l'installer.
 
L'article suivant: http://www.thegeekstuff.com/2008/0 [...] n-command/ dans sa seconde partie "Install Perl Modules using CPAN automatically" va vous expliquer très clairement la marche a suivre.
 
Bref vous installez cpan s'il n'est pas déjà installé, en suivant la procédure indiquée, puis vous faites
# cpan
....
cpan[1]> install "Config::IniFiles";
...
cpan[...]>quit
#
 
et ça devrait rouler (sauf erreur lors de l'installation du module par cpan, mais c'est relativement rare).
 
A+,


Message édité par gilou le 10-03-2016 à 14:12:44

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

Marsh Posté le 10-03-2016 à 14:25:08    

Je comprends mieux ma fonction GetFilesList mais j'ai quand même un message d'erreur que je ne comprend pas  
 
Voici mon code :
use strict;
use warnings;
use Config::IniFiles;
 
my @directories_to_process;
my @filelist;
my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
foreach ('REP_FACTURE','REP_BULLETIN') {
   push @directories_to_process, $cfg->val('repertoire', $_) if $cfg->val('repertoire', $_);
   }
 
sub GetFilesList  
{
        my $Path = $_[0];
        my $FileFound;
        my @FilesList=();
 
        ## Lecture de la liste des fichiers
        opendir (my $FhRep, $Path)
                or die "Impossible d'ouvrir le repertoire $Path\n";
        my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
        closedir ($FhRep);
 
        foreach my $FileFound (@Contenu) {
                ## Traitement des fichiers
                if ( -f "$Path/$FileFound" ) {
                        push ( @FilesList, "$Path/$FileFound" );
                }
                ## Traitement des repertoires
                elsif ( -d "$Path/$FileFound" ) {
                        ## Boucle pour lancer la recherche en mode recursif
                        push (@FilesList, GetFilesList("$Path/$FileFound" ) );
                }
        }
        return @FilesList;
}
my @Files = GetFilesList my $repfacture;
foreach my $File  (@Files) {  
 next unless $File =~ /\.txt$/i;
 print "$File \n";
}
 
@Files = GetFilesList my $repbulletin;
foreach my $File  (@Files) {  
 next unless $File =~ /\.txt$/i;
 print "$File \n";
}
Voici le message d'erreur :
Use of uninitialized value $Path in opendir at C:\users\baranowp\Documents\2016_03_07_11\param.pl line 22.
Use of uninitialized value $Path in concatenation (.) or string at C:\users\baranowp\Documents\2016_03_07_11\param.pl line 22.

Reply

Marsh Posté le 10-03-2016 à 14:50:14    

Tes appels de GetFilesList() ne sont pas bons. Le code de gilou sauvegarde les deux chemins d'accès dans @directories_to_process, donc soit tu utilises ça, soit tu adaptes le code.

 

Soit

Code :
  1. my @Files = GetFilesList($directories_to_process[0]);
  2. #....
  3.  
  4. @Files = GetFilesList($directories_to_process[1]);
  5. #...


soit

Code :
  1. #virer le foreach au début
  2.  
  3. my @Files = GetFilesList($cfg->val('repertoire', 'REP_FACTURE'))
  4. #...
  5.  
  6. @Files = GetFilesList($cfg->val('repertoire', 'REP_BULLETIN'))
  7. #...


(non testé)

 

edit: Balises ton code!


Message édité par rat de combat le 10-03-2016 à 14:51:37
Reply

Marsh Posté le 10-03-2016 à 14:50:14   

Reply

Marsh Posté le 10-03-2016 à 15:46:14    

Lorsque j'utilise ma commande perl.exe C:\Users\baranowp\Documents\2016_03_07_11\param.pl C:\Users\baranowp\Documents\2016_03_07_11\param.ini,
j'obtiens ce que je souhaite.
 
Maintenant il ne me reste plus qu'à traiter la seconde partie du fichier d'initialisation qui sont les fichiers paramètres
Contenu du fichier d'initialisation :  
[repertoire]
REP_FACTURE=C:\Users\baranowp\Documents\2016_01_07_08\facture\
REP_BULLETIN=C:\Users\baranowp\Documents\2016_02_04_05\bulletin_paie\
 
[param_facture]
PARAM_FACTURE=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.txt
PARAM_FACTURE_LOG=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.log
 
Voici le programme utilisé pour traiter le fichier d'initialisation :
 
Code :

Code :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  5. my @directories_to_process;
  6. my @filelist;
  7. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  8. foreach ('REP_FACTURE','REP_BULLETIN') {
  9.   push @directories_to_process, $cfg->val('repertoire', $_) if $cfg->val('repertoire', $_);
  10.   }
  11. foreach ('PARAM_FACTURE','PARAM_FACTURE_LOG') {
  12.   push @directories_to_process, $cfg->val('param_facture', $_) if $cfg->val('param_facture', $_);
  13.   }
  14. sub GetFilesList
  15. {
  16.         my $Path = $_[0];
  17.         my $FileFound;
  18.         my @FilesList=();
  20.         ## Lecture de la liste des fichiers
  21.         opendir (my $FhRep, $Path)
  22.                 or die "Impossible d'ouvrir le repertoire $Path\n";
  23.         my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
  24.         closedir ($FhRep);
  26.         foreach my $FileFound (@Contenu) {
  27.                 ## Traitement des fichiers
  28.                 if ( -f "$Path/$FileFound" ) {
  29.                         push ( @FilesList, "$Path/$FileFound" );
  30.                 }
  31.                 ## Traitement des repertoires
  32.                 elsif ( -d "$Path/$FileFound" ) {
  33.                         ## Boucle pour lancer la recherche en mode recursif
  34.                         push (@FilesList, GetFilesList("$Path/$FileFound" ) );
  35.                 }
  36.         }
  37.         return @FilesList;
  38. }
  39. my @Files = GetFilesList ($directories_to_process[0]);
  40. foreach my $File  (@Files) {
  41. next unless $File =~ /\.txt$/i;
  42. print "$File \n";
  43. }
  45. @Files = GetFilesList  ($directories_to_process[1]);
  46. foreach my $File  (@Files) {
  47. next unless $File =~ /\.txt$/i;
  48. print "$File \n";
  49. }
  51. my @tab = ();
  52. #my @tab1 = ();
  54. my $file =$directories_to_process[2]; ###param_facture.txt ###
  55. open(my $fic,$file) or die "$file: $!" ;
  56. my $param_facture = $directories_to_process[3]; ### param_facture.log###
  57. open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!";
  60. ## parcours les lignes du tableau
  61. print "facture : \n";
  62. foreach my $line(<$fic> ) {
  63.     chomp($line);
  64.     #print $line."\n";
  66. ## renvoi la position des valeurs qui  m'interesse 
  67.     @tab =split(";", $line);
  68.     print $tab [1]."\n";
  69.     print $tab [3]."\n";
  70.     print $tab [5]."\n";
  71.     print $tab [7]."\n";
  72. print "\n";
  73. #print $PARAM "$line\n";
  74. print $PARAM "$tab[1] $tab[3] $tab[5] $tab[7]\n";
  75. }   
  76. #close($fic);
  77. close ($PARAM);


Voici ce que m'affiche ce programme :  
La liste des différents fichiers contenu dans les répertoires factures et bulletin_paie et ce message d'erreur :
Use of uninitialized value $file in open at C:\users\baranowp\Documents\2016_03_07_11\param.pl line 55.
Use of uninitialized value $file in concatenation (.) or string at C:\users\baranowp\Documents\2016_03_07_11\param.pl line55.  
 

Reply

Marsh Posté le 10-03-2016 à 16:07:27    

Je suppose que le module a un problème à cause du désignateur(??) utilisé deux fois:

Citation :

[param_facture]
PARAM_FACTURE=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.txt
PARAM_FACTURE_LOG=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.log

 

Pour débugger tu peux rajouter genre print join("\n", @directories_to_process) après tes foreach (soit ligne 14 ou après).

 

Par contre ton code n'est pas très propre: @directories_to_process c'est des (noms de) dossiers, alors que ce que tu rajoutes dans ta deuxième boucle foreach c'est des (noms de) fichiers. Rien ne t'empêches de faire autrement, genre

Code :
  1. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  2.  
  3. foreach ('REP_FACTURE','REP_BULLETIN') {
  4.   push @directories_to_process, $cfg->val('repertoire', $_) if $cfg->val('repertoire', $_);
  5. }
  6.  
  7. my $param_facture=$cfg->val('param_facture', 'PARAM_FACTURE'); #à revoir, cf mon message
  8. my $facture_log=$cfg->val('param_facture', 'PARAM_FACTURE_LOG');
  9.  
  10. #vérifications du contenu des deux variables?
  11. #...
  12.  
  13. open(my $fic, $param_facture) or die "$param_facture: $!";
  14. #....


(non testé)

 

Astuce: Tu peux te passer des vérifications sur open() si tu utilises (rajout au début) use Autodie;


Message édité par rat de combat le 10-03-2016 à 16:08:32
Reply

Marsh Posté le 10-03-2016 à 16:20:44    

C'est ce que j'ai fait j'ai modifié les variables de cette façon :

Code :
  1. my @parametre;
  2. foreach ('PARAM_FACTURE','PARAM_FACTURE_LOG') {
  3.   push @parametre, $cfg->val('param_facture', $_) if $cfg->val('param_facture', $_);
  4.   }
  5. y @tab = ();
  6. #my @tab1 = ();
  8. my $file =$parametre[0];
  9. open(my $fic,$file) or die "$file: $!" ;
  10. my $param_facture = $parametre[1];
  11. open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!";
  14. ## parcours les lignes du tableau
  15. print "facture : \n";
  16. foreach my $line(<$fic> ) {
  17.     chomp($line);
  18.     #print $line."\n";
  19.    
  20. ## renvoi la position des valeurs qui  m'interesse 
  21.     @tab =split(";", $line);
  22.     print $tab [1]."\n";
  23.     print $tab [3]."\n";
  24.     print $tab [5]."\n";
  25.     print $tab [7]."\n";
  26. print "\n";
  27. #print $PARAM "$line\n";
  28. print $PARAM "$tab[1] $tab[3] $tab[5] $tab[7]\n";
  29. }   
  30. #close($fic);
  31. close ($PARAM);

Reply

Marsh Posté le 10-03-2016 à 16:55:29    

et alors, ça fonctionne?

Reply

Marsh Posté le 10-03-2016 à 16:59:06    

oui ça fonctionne  :)  :lol:

Reply

Marsh Posté le 11-03-2016 à 16:17:52    

Je rencontre un petit soucis,  
Dans mon programme je ne veux plus voir apparaître d'arborescence de ce fait j'utilise le fichier d'initialisation comme vu précédement, Pour la focntion GetFilesList j'ai réussi à l'utiliser mais pour ce cas de figure je ne vois vraiment pas comment l'utiliser. Pour générer mon fichier de paramètre.log  
Comme ceci ça fonctionne mais je ne veux plus voir l'arborescence.
 

Code :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  5. my @parametre;
  7. foreach ('PARAM_FACTURE','PARAM_FACTURE_LOG') {
  8.   push @parametre, $cfg->val('param_facture', $_) if $cfg->val('param_facture', $_);
  9.   }
  10. my @tab = ();
  11. #my @tab1 = ();
  13. my $file ="C:/Users/baranowp/Documents/2016_01_28_29/param_facture.txt";
  14. open(my $fic,$file) or die "$file: $!" ;
  15. my $param_facture = "C:/Users/baranowp/Documents/2016_01_28_29/param_facture.log";
  16. open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!";
  19. ## parcours les lignes du tableau
  20. print "facture : \n";
  21. foreach my $line(<$fic> ) {
  22.     chomp($line);
  23.     #print $line."\n";
  25. ## renvoi la position des valeurs qui  m'interesse 
  26.     @tab =split(";", $line);
  27.     print $tab [1]."\n";
  28.     print $tab [3]."\n";
  29.     print $tab [5]."\n";
  30.     print $tab [7]."\n";
  31. print "\n";
  32. #print $PARAM "$line\n";
  33. print $PARAM "$tab[1] $tab[3] $tab[5] $tab[7]\n";
  34. }   
  35. #close($fic);
  36. close ($PARAM);


 
Voici le fichier d'initialisation :
[param_facture]
PARAM_FACTURE=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.txt
PARAM_FACTURE_LOG=C:\Users\baranowp\Documents\2016_01_28_29\param_facture.log
 
Cordialement

Reply

Marsh Posté le 11-03-2016 à 16:37:16    

C'est moi qui a mal compris ou tu cherches simplement un truc genre

Code :
  1. #OU L'INVERSE!
  2. my $file=$parametre[0];
  3. my $param_facture=$parametre[1];

??
Dans ce cas autant virer le @parametre et la boucle qui va avec:

Code :
  1. #OU L'INVERSE!
  2. my $file=$cfg->val('param_facture', 'PARAM_FACTURE');
  3. my $param_facture=$cfg->val('param_facture', 'PARAM_FACTURE_LOG');

Reply

Marsh Posté le 11-03-2016 à 16:47:06    

oui je veux un truc comme ça  

Code :
  1. my $file ="C:/Users/baranowp/Documents/2016_01_28_29/param_facture.txt";
  2. open(my $fic,$file) or die "$file: $!" ;
  3. my $param_facture = "C:/Users/baranowp/Documents/2016_01_28_29/param_facture.log";
  4. open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!";


 
De ce fait j'obtiendrais ça :  
 

Code :
  1. my @parametre;
  3. foreach ('PARAM_FACTURE','PARAM_FACTURE_LOG') {
  4. push @parametre, $cfg->val('param_facture', $_) if $cfg->val('param_facture', $_);
  5. }
  7. my $file=$parametre[0];
  8. open(my $fic,$file) or die "$file: $!"
  9. my $param_facture=$parametre[1];
  10. open my $PARAM, ">", "$param_facture" or die "Ouverture impossible de $param_facture $!";


 

Reply

Sujets relatifs:

Leave a Replay

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