やっと参照とモジュールを理解

理解したっぽい。

use ModuleTest ;

my @myary1 = (1,2,3,4,5) ;
my @myary2 = ('A','B','C') ;
my @rootary = (\@myary1,\@myary2) ;
ExtendReference(\@rootary) ;

これがテスト用のメインで、下がModuleTestモジュール。

package ModuleTest ;

use Exporter ;
@ISA = (Exporter) ;
@EXPORT = (ExtendReference) ;

sub ExtendReference {
	my $rootref = shift ;
	foreach $arrayref (@{$rootref}) {
		foreach $item (@{$arrayref}) {
			print "$item," ;
		}
		print "\n" ;
	}
}

return 1 ;

先頭のpackage宣言から@EXPORTまではお約束。最後のreturn 1はおまじない。