Hervé SCHLECHT Blog's: PERL - Passer des variables à une fonction

Thursday, February 23, 2006

my @array = ("abc", "def");
my $var = "10000a";

Fonction ($var, @array);

sub Fonction {
my ($var, @array) = @_;
}