-
本版专家分：8275结帖率 96.88% -
以下这段代码在Perl5.8会出现Server Error，但是如果把my改成local就能通过了，难道不能传递指针给my？初学PERL请多多指教。
#!/usr/bin/perl
print ("Content-Type: text/html;\n\n");
@myarray = (1,2,3,4,5,6,7,8,9);
&my_sub(*myarray);
sub my_sub
{
my(*subarray) = @_; // 这里my改成local就ok了
print (@subarray);
}![]()
-
本版专家分：8275
-
没人回答吗？自己顶
-
本版专家分：3532 -
这不是指针，Perl里没有指针，你这里传递的是一个 glob, 同时包含标量、数组、散列、代码等的变量，我记得好像有5项或者6项内容包含在一个 glob 变量中，根据上下文决定使用哪一个。
glob 不能做语句体内部的局部变量，所以用 my 不能工作。
至于指针，似乎用引用的方式更接近一些。例如你上面的例子改为:
#!/usr/bin/perl
print ("Content-Type: text/html;\n\n");
@myarray = (1,2,3,4,5,6,7,8,9);
&my_sub(\@myarray);
sub my_sub
{
my $subarray = $_[0];
print @$subarray; # 用 @{$subarray} 更直观可读
}
