胶片27关于子程序的一些说明-IV
--通过引用调用
sub doublearray{
my(*arraypointer) = @_;
foreach $elem (@arraypointer){
$elem *=2;
}
} #结束把数组元素重复的子程序
#假设@foo和@bar是数组
doublearray(*foo); #重复@foo的元素
doublearray(*bar); #重复@bar的元素
Copyright: NPACT
