Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1498 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  utilisation d'un fichier d'initialisation

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

utilisation d'un fichier d'initialisation

n°2277240
solerian
Posté le 09-03-2016 à 10:34:59  profilanswer
 

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

mood
Publicité
Posté le 09-03-2016 à 10:34:59  profilanswer
 

n°2277315
gilou
Modérateur
Modzilla
Posté le 09-03-2016 à 16:36:54  profilanswer
 

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é!  --
n°2277316
solerian
Posté le 09-03-2016 à 16:40:42  profilanswer
 

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.

n°2277356
rat de com​bat
attention rongeur méchant!
Posté le 09-03-2016 à 18:13:07  profilanswer
 

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

n°2277370
gilou
Modérateur
Modzilla
Posté le 09-03-2016 à 22:29:46  profilanswer
 

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é!  --
n°2277387
solerian
Posté le 10-03-2016 à 09:53:00  profilanswer
 

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
n°2277403
rat de com​bat
attention rongeur méchant!
Posté le 10-03-2016 à 13:23:00  profilanswer
 
n°2277410
gilou
Modérateur
Modzilla
Posté le 10-03-2016 à 14:10:09  profilanswer
 

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é!  --
n°2277414
solerian
Posté le 10-03-2016 à 14:25:08  profilanswer
 

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.

n°2277420
rat de com​bat
attention rongeur méchant!
Posté le 10-03-2016 à 14:50:14  profilanswer
 

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
mood
Publicité
Posté le 10-03-2016 à 14:50:14  profilanswer
 

n°2277431
solerian
Posté le 10-03-2016 à 15:46:14  profilanswer
 

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.  
 

n°2277435
rat de com​bat
attention rongeur méchant!
Posté le 10-03-2016 à 16:07:27  profilanswer
 

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
n°2277438
solerian
Posté le 10-03-2016 à 16:20:44  profilanswer
 

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);

n°2277442
rat de com​bat
attention rongeur méchant!
Posté le 10-03-2016 à 16:55:29  profilanswer
 

et alors, ça fonctionne?

n°2277444
solerian
Posté le 10-03-2016 à 16:59:06  profilanswer
 

oui ça fonctionne  :)  :lol:

n°2277483
solerian
Posté le 11-03-2016 à 16:17:52  profilanswer
 

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

n°2277488
rat de com​bat
attention rongeur méchant!
Posté le 11-03-2016 à 16:37:16  profilanswer
 

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');

n°2277490
solerian
Posté le 11-03-2016 à 16:47:06  profilanswer
 

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 $!";


 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  utilisation d'un fichier d'initialisation

 

Sujets relatifs
Lire fichier excel écrire dans bddImpact modification "type" d'un fichier
[C / C#] Exécuter un fichier C sans le compilerMacro Excel - Importation fichier htm
Modification droit fichier en ligne de commande .bat[Script] Formatter un fichier plat à partir d'une clause copy
[VBA/Excel] Ouverture de Fichier User Friendlyimporter données vers autre fichier excel automatiquement
récupérer valeur JComboBox dans une fichier txtcomment récupérer valeur JComboBox dans une fichier txt
Plus de sujets relatifs à : utilisation d'un fichier d'initialisation

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.136 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR