问个有关Perl Subroutine 转换到Module的问题# Programming - 葵花宝典
c*e
1 楼
遇到一个麻烦事,原来写的是subroutine,和主程序在同一个文件, 现在要把sub转到
一个module里去。总是不成功,求教。 例程如下:
@var3_array_out=();
mySubTest(\@var1_array_in, $var2_scale_in, \@var3_array_out);
for ($j=1; $j<=100; $j++){
printf outfile $j."\t".$var3_array_out[$j]."\n";
}
...
sub mySubTest{
my($var1_array_in, $var2_scale_in, $var3_array_out) = @_;
my($i, $j, $k);
my(@var1_array)[email protected]{$var1_array_in};
my(@var3_array)[email protected]{$var3_array_out};
...
@{var3_array_out} = @var3_array;
}
我是直接把mySubTest拷贝到myModule.pm里面,然后在主程序里面调
一个module里去。总是不成功,求教。 例程如下:
@var3_array_out=();
mySubTest(\@var1_array_in, $var2_scale_in, \@var3_array_out);
for ($j=1; $j<=100; $j++){
printf outfile $j."\t".$var3_array_out[$j]."\n";
}
...
sub mySubTest{
my($var1_array_in, $var2_scale_in, $var3_array_out) = @_;
my($i, $j, $k);
my(@var1_array)[email protected]{$var1_array_in};
my(@var3_array)[email protected]{$var3_array_out};
...
@{var3_array_out} = @var3_array;
}
我是直接把mySubTest拷贝到myModule.pm里面,然后在主程序里面调