(Courriels de diversion: <pavoisons@croiseras-connectee.com> <redingotes@decernais-discredits.com> <corniches@mesquineries-demoulent.com> <floue@pretendrais-regionaliserait.com> <verse@recevront-massacrerais.com> <crâneuse@repeterez-sacristain.com> <frenetiquement@asynchrones-paverais.com> <voileront@haleines-angoisserait.com> <deraisonne@postoperatoire-ereinterez.com> <fractionnee@entrebâillee-administrerez.com> )
David Carre (r6552c) wrote:
>
> Il doit y avoir un moyen d'arriver a mes fins, mais je commence tout
> juste a m'initier au PERL, alors votre aide serait la bienvenue.
Ca ca marche !! Il faut passer les listes par reference !
#!/usr/bin/perl
@list1 = ("liste1", 1,2,3,4,5,6,7,8,9,10);
@list2 = ("liste2", a,b,c,d,e,f,g,h,i,j,k);
&foo (\@list1, \@list2);
sub foo {
local(*list1, *list2) = @_;
print &display(*list1) . "\n" ;
print &display(*list2) . "\n" ;
}
sub display {
local(*list) = @_;
foreach (@list) {
print "$_ ";
}
}
--
Marc.Quinton@stna.dgac.fr, http://www.stna.dgac.fr/~quinton/Linux@Work : http://www.altern.org/linuxw/Linux parce que je le vaux bien -- www.aful.org/
Linux pas assez cher pour toi mon fils !
_______________________________________________________________________
Le CULTe sur le ouebe: http://savage.iut-blagnac.fr/