[PERL] Passage de plusieurs array en paramêtre à une fonction

Marsh Posté le 04-12-2003 à 23:02:36

une simple variable c'est facile

Code :

maFonction($var1);
sub maFonction {
my $var = shift;
}

plusieurs variable aussi

Code :

maFonction($var1, $var2, $var3);
sub maFonction {
my $var1 = shift;
my $var2 = shift;
my $var3 = shift;
}

variables et 1 array c'est simple

Code :

maFonction($var1, $var2, @array1);
sub maFonction {
my $var1 = shift;
my $var2 = shift;
my @array = @_;
}

mais pour 2 array?!? comment on fait

Code :

maFonction(@array1, @array2);
sub maFonction {
???
}

Message édité par burgergold le 04-12-2003 à 23:02:54

---------------
http://www.boincstats.com/signature/user_664861.gif

Marsh Posté le 04-12-2003 à 23:02:36

Marsh Posté le 05-12-2003 à 02:34:21

La seule solution est de les passer par référence :

#!/usr/bin/perl -w

use strict;

sub func(\@\@) {
my ($a1, $a2) = @_;
print "Array #1: (" . join(", ", @$a1) . " )\n";
print "Array #2: (" . join(", ", @$a2) . " )\n";
}

my @a = (1, 2, 3);
my @b = (4, 5, 6);

func(@a, @b);

Mais évidemment, si tu modifies les tableaux dans ta fonction ça les modifies aussi dans la fonction appelante. Enfin c'est du passage par référence, quoi...

Message édité par matafan le 05-12-2003 à 02:39:06

Marsh Posté le 05-12-2003 à 02:36:30

Et si tu n'aimes pas les prototypes (mais les prototypes c'est bien), ça revient à faire :

#!/usr/bin/perl -w

use strict;

sub func {
my ($a1, $a2) = @_;
print "Array #1: (" . join(", ", @$a1) . " )\n";
print "Array #2: (" . join(", ", @$a2) . " )\n";
}

my @a = (1, 2, 3);
my @b = (4, 5, 6);

func(\@a, \@b);

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *