Discussion :

[lavm01]

Bonjour,

Mon programme ExecSASUL.pl qui se call ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExecSASUL.pl -sasProgram0 "ABC" -sasProgram1 "DEF" -sasProgram2 "GHI" -nbprog 3

Voici un bout de mon programme et ce que j'essaie de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use Time::Local;
use Date::Calc qw{Delta_DHMS};
use FindBin;
use lib "$FindBin::Bin";
use Percomlib;
use perfenv;
no lib "$FindBin::Bin";
use Getopt::Long;
#
$result = GetOptions ("sasProgram0=s" => \$sasProgram0,
"sasProgram1:s"  => \$sasProgram1,
"sasProgram2:s"  => \$sasProgram2,
"nbprog:i"  => \$nbprog); # flag
 
for (my $i = 0; $i<$nbprog; $i++) {
   print "$i\n";
   $nomprog = "$sasProgram$i";
   print "$nomprog\n";
}

Ce que j'aimerais qu'il me retourne dans le print de $nomprog est le nom du programme qui est passé en paramètre ex pour:
$sasProgram0 qui est égal à ABC alors le print devrait me retourner ABC mais il me retourne 0 et ainsi de suite jusqu'à 2. Comment le faire ?

Merci !

[JeanMi3000]

testé sur Perl 5:

Le but est de passer par une liste pour s'y retrouver plus facilement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use Getopt::Long;
 
$result = GetOptions ("sasProgram0=s" => \$sasProgram0,
"sasProgram1=s"  => \$sasProgram1,
"sasProgram2=s"  => \$sasProgram2,
"nbprog=i"  => \$nbprog); # flag
my $index;
 
$index = 0;
print "nbprog :: " . $nbprog . "\n" ;
print "sasProgram0 :: " . $sasProgram0 . "\n";
print "sasProgram1 :: " . $sasProgram1 . "\n";
print "sasProgram2 :: " . $sasProgram2 . "\n";
 
print "\n\n//////////////////////////\n"; 
 
foreach my $nomprog ($sasProgram0, $sasProgram1, $sasProgram2){
	print "index :: " . $index++ . "\n";
	print "$nomprog\n";
}