菜鸟提问关于别名传递参数

[limonpie]

我想用以下函数分析表参：
sub parse_input
{
if(defined(@_)){
local(*input) = @_;
}
else{
local(*input) = "*cgiinput";
}
local($temp, @pairs);
if(&form_method eq 'POST'){
read(STDIN, $temp, $ENV{'CONTENT_LENGTH'});
}
else{
$temp = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $temp);
foreach $item(@pairs){
($key, $content) = split(/=/, $item, 2);
$content =~ tr/+/ /;
$content =~ s/%(..)/pack('c', hex($1))/ge;
$input{$key} = $content;
}
return 1;
}
但是用&parse_input(*fields),%fields却没有数据。如果在parse_input里返回
%input,象%fields = &parse_input(*fields)可以。请高手指点迷津！

[AllCHN]

这应该是我第一次发现这样的用法，不知是否可行。
如果你想节省空间和减少传递，用引用应该是一个不错的办法。