やっと参照とモジュールを理解
理解したっぽい。
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はおまじない。