小编use*_*481的帖子

Perl Sort函数无法以预期的增量方式排列数组元素

@array_sort = sort { $a <=> $b } @array

@array = ("BE_10", "BE_110", "BE_111", "BE_23", "BE_34", "BE_220", "BE_335");
@array_sort = sort { $a <=> $b } @array;
print "array_sort = @array_sort\n";

预期结果：array_sort = BE_10 BE_23 BE_34 BE_110 BE_111 BE_220 BE_335

实际结果：array_sort = BE_10 BE_110 BE_111 BE_23 BE_34 BE_220 BE_335

编码

print "fruit list\n";
print "1.\tApple\n";
print "2.\tOrange\n";
print "3.\tPic\n";
print "3.\tBanana\n";
print "Based on fruit list above, please key in your favorite fruit name.\n";

%fruit_list = (
    1 => 'Apple',
    2 => 'Orange',
    3 => 'Pic',
    4 => 'Banana'
);

$fruit = $fruits[<STDIN>];

if ( $fruit == $fruit_list{'1'} ) {
    func1();
}
elsif ( $fruit == $fruit_list{'2'} ) {
    func2();
}

sub func1 {
    print "executing function 1\n";
}

sub func2 {
    print "executing function 2\n";
}

输出(输入1):

fruit …