Bonjour a tous,
j'ai plusieurs Perl-Script que je voudrais appeler à partir d'un autre script Perl.
les scripts doivent être exécutés dans l'ordre ci dessous.
 
chaque script Perl a un paramètre d'entrée
 
1-script1.pl a comme paramètres d'entrée: perl script1.pl default.xml * .xml
2-script2.pl a comme paramètres d'entrée: perl script2.pl data.csv
3-script3.pl a comme paramètres d'entrée: perl script3.pl data.csv
4-script4.pl a comme paramètres d'entrée: perl script4.pl data.csv
5-script5.pl a comme paramètres d'entrée: perl script5.pl data.csv
6-script6.pl a comme paramètres d'entrée: perl script6.pl default.xml default.xml
7-script7.pl a comme paramètres d'entrée: perl script7.pl data2.csv default.csv
 
S'il vous plaît quelqu'un peut-il m'aider a résoudre ce probleme?
 
tous mes remercierments

Pour appeller un autre script dans un script, une des techniques possibles est la suivante:

use strict;
use warnings;
 
do {
    local @ARGV;
 
    @ARGV = ("Hello", "World!" );
    eval { require "un_autre_script.pl" };
};

 
A+,

use strict;
use warnings;
 
do {
    local @ARGV;
 
    @ARGV = ("Hello", "World!" );
    eval { require "un_autre_script.pl" };
};

es ce que je peus me permettre donc de traiter mon probleme de la sorte

use strict;
    use warnings;
     
    do {
        local @ARGV;
     
        @ARGV = ("default.xml", "*.xml",  "data.csv", "data2.csv", "default.csv" );
        eval { require "script1.pl", "script2.pl", "script3.pl", "script4.pl", "script5.pl", "script6.pl", "script7.pl" };
    };

et a chaque fois aller sur perl-editor taper les parametres entree

Non, il faut que tu fasse le boulot a chaque fois:
@ARGV = ("default.xml", "*.xml" );
eval { require "script1.pl" };
@ARGV = ("data.csv" );
eval { require "script2.pl" };
etc.
 
A+,

A la limite, tu peux faire un truc comme ceci je pense:
 

my @scripts = (
           { file => "script1.pl", args => ["default.xml", "*.xml"] },
           { file => "script2.pl", args => ["data.csv"] },
           # ...
          );
 
foreach (@scripts) {
  local @ARGV = @{$_->{args}};
  eval { require "$_->{file}" };
}

Pas testé, donc SGDG
 
A+,

my @scripts = (
           { file => "script1.pl", args => ["default.xml", "*.xml"] },
           { file => "script2.pl", args => ["data.csv"] },
           # ...
          );
 
foreach (@scripts) {
  local @ARGV = @{$_->{args}};
  eval { require "$_->{file}" };
}

 
Merci bien de ta proposition Gilou
ca veut dire au finish j'ai un script du genre  
 

my @scripts = (
               { file => "script1.pl", args => ["default.xml", "*.xml"] },
               { file => "script2.pl", args => ["data.csv"] },
               { file => "script3.pl", args => ["data.csv"] },
               { file => "script4.pl", args => ["data.csv"] },
               { file => "script5.pl", args => ["data.csv"] },
               { file => "script6.pl", args => ["default.xml", "default.xml"] },
               { file => "script7.pl", args => ["data2.csv", "default.csv"] },   
              );
     
foreach (@scripts) {
    local @ARGV = @{$_->{args}};
   eval { require "$_->{file}" };
 }

je me pose la question a savoir que vais je taper dans mon perl commando-line  
si je voudrai par exemple executer le script1.pl
disons si j'appele le script tout en haut main.pl
quand je tape dans perl commando-line : perl main.pl default.xml  *.xml malheureusement il ne fonctionne pas.

> perl main.pl default.xml  *.xml malheureusement il ne fonctionne pas.
1) qu'est ce que le default.xml vient faire ici?
2) "il ne fonctionne pas" et moi, avec une description aussi explicite de ce qui se passe, c'est sur que j'ai envie d'en chercher la raison  
 
A+,
 
 

 
Gilou,  
pas de sourci je l'ai resolu, merci bien une fois de plus