Retourner plusieurs tableaux

Retourner des références sur les tableaux :

#!/usr/local/bin/perl

use strict;

sub tab
{
	my @t1 = qw( 1 2 3 );
	my @t2 = qw( a b c );
	return(\@t1,\@t2);
}

my($t1,$t2) = &tab;

my @t1 = @$t1;
my @t2 = @$t2;

foreach my $tmp(@t2)
{
	print $tmp ."\n";
}

Plus d'informations dans les mans :

• perlref(1)