Substitution dans une boucle for

Marsh Posté le 24-03-2010 à 12:51:13

bonjour,

je débute en perl, et je voulais savoir s'il état possible de faire ceci:

J'ai une subroutine nommé : regles($$@)
A la fin de mon script, j'aimerais faire plusieurs appels à cette fonction avec des variables diffèrentes tel que $var1, $var2, $var3 ou encore @tab1, @tab2, @tab3.

Donc est-il possible de faire :

Code :

for ( $i = 1; $i < 7; $i++ )
{
regles ( $i, $var.$i, @tab.$i )
}

Merci

---------------
Celui qui sauve une vie, sauve l'humanité (Le Talmud) - Personne n'a plus grand amour que celui de donner sa vie pour ses amis (Jean XV, 13)

Marsh Posté le 24-03-2010 à 12:51:13

Marsh Posté le 24-03-2010 à 13:53:55

Bonjour,

En regardant ton script, je pense qu'il n'y a pas de problème pour faire appel à ta sous-fonction du moment que tu récupères tes arguments en entrée de fonction.

As-tu un problème lors de l'exécution de ton script ?

Je te joint un exemple d'un petit bout de script que je viens de faire:

Code :

#!/usr/local/bin/perl
sub MyAddFunction
{
($InpA, $InpB) = @_;
return ($InpA + $InpB);
}
# Main program
my $Indx;
my $Rslt;
for (my $Indx=0; $Indx <5; $Indx++)
{
$Rslt = MyAddFunction ($Indx,$Indx);
print "Resultat = $Rslt\n";
}

Message édité par phdenis le 24-03-2010 à 14:00:35

Marsh Posté le 24-03-2010 à 16:08:23

Merci de ton aide.
J'ai pu résoudre mon problème entre temps.

---------------
Celui qui sauve une vie, sauve l'humanité (Le Talmud) - Personne n'a plus grand amour que celui de donner sa vie pour ses amis (Jean XV, 13)

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *