Question

请问这段代码是什么意思，具体的操作是什么？

正在修改bugzilla，perl
$vars->{'version'} = $product->versions;
my $version_cookie = $cgi->cookie("VERSION-" . $product->name);
if ( ($cloned_bug_id) &&
($product->name eq $cloned_bug->product ) ) {
$default{'version'} = $cloned_bug->version;
} elsif (formvalue('version')) {
$default{'version'} = formvalue('version');
} elsif (defined $version_cookie
and grep { $_->name eq $version_cookie } @{ $vars->{'version'} })
{
$default{'version'} = $version_cookie;
} else {
$default{'version'} = $vars->{'version'}->[$#{$vars->{'version'}}]->name;
}

Answer 1

从COOKIE中获取版本号 my $version_cookie = $cgi->cookie("VERSION-" . $product->name);
COOKIE NAME是VERSION-$product->name
完了是根据产品名称的版本号判断和赋值，最后可能还有更新COOKIE的操作

Answer 2

获取版本号的程序。他的逻辑挺简单的，就是从不同情况下获取到某个东西的版本号。

追问

那您能看出来版本号是存储在哪个位置了么？