语句的问题

语句的问题

语句的问题
书上定义了这样一函数:
sub util_get_status_line
{
$in_status = $_[0];
$in_ver = $_[1];
if (!$in_ver) {
$ver = "HTTP/1.1";
} elsif ($in_ver eq 'no') {
$ver = "HTTP";
} else {
$ver = "HTTP/$in_ver";
}
%msg = (
'100' => 'Continue',
'101' => 'Switching Protocols',
.
. ,
.
);
if ($msg{$in_status}) {
return "$ver $in_status " . $msg{$in_status};
} else {
return "$ver $in_status";
}
}

请教$in_status = $_[0];
$in_ver = $_[1];
这两句是什么意思?
传递给这个子程序的参数1,.
传递给这个子程序的参数1,参数2.
相当于$in_status = shift;$in_ver = shfit;
就是取@_数组里的值。
应该明白了吧。
呵呵 ,明白了,多谢! 呵呵 ,明白了,多谢!