以下Perl程序的输出结果是什么?
my $str1=“adbabcabf”;
my $str2=”abdabc”;
my $str3;
if ($str1 eq $str2){
print “ok”;
}else{
if($str1 gt $str2){
$str3=”$str1”,”str2”;
print “$str3”;
}else{
$str3=”$str2”,”str1”;
print “$str3”;
}
}
这道题你会答吗?花几分钟告诉大家答案吧!