concaténation string avec nombre

Bonjour,

Mon programme ExecSASUL.pl qui se call ainsi:

Code:

---

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

---

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

Code:

---

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 !

testé sur Perl 5:

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

Code:

---

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"; }

---