仔细查看下列Perl程序,请选出正确的输出结果。
my %com = (
"first" => '0',
'second' => '1',
'third' => '2',
'forth' => '3',
);
my %com_new = reverse %com;
my @k = keys %com_new;
foreach $k (@k){
if ($k ==2){
print "$com_new{$k}";
}
2
third
1
undef
这道题你会答吗?花几分钟告诉大家答案吧!
扫描二维码,关注牛客网
下载牛客APP,随时随地刷题