Perl

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Passage de plusieurs array en paramêtre à une fonction

burgergold

5$? va chez l'diable!

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

Publicité

matafan

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

matafan

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);

FORUM HardWare.fr

Programmation

Perl

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

Sujets relatifs
[ASP.NET] affiche le resultat sur plusieurs lignes	[C] possible de passer une union en parametre a une fonction ?
[CMD] Saisie de parametre par l'utilisateur ?	problème de création de fonction avec postgresql 7.3.4
[PERL] Debugger Perl	[java] probleme avec un passage d'argument...
Passage MySql à fichier SYLK (compatible excel) et inverse (PHP)	[PHP] Fonction permettant de télécharger un fichier....
[VB]Passage de DAO+Jet à DAO+ODBCDirect
Plus de sujets relatifs à : [PERL] Passage de plusieurs array en paramêtre à une fonction

Page générée en 0.027 secondes