冒泡法排序

 

use strict;

my @name = qw (wang li jun);
my @value = qw (15 34.7 15);
my @item;
my @srcItem;
my @reItem;

for (my $i = 0; $i <=$#name; $i++ ) {
    print "$name[$i]--$value[$i] ";
    # 合并
    $item[$i] = $name[$i].'#'.$value[$i];    
}

# 排序
for (my $j =0; $j < $#value; $j++) { #循环N-1次
    for (my $i = 0; $i < $#value-$j; $i++) {
        if( $value[$i] < $value[$i+1] ) {
            my $tmp = $value[$i];
            $value[$i] = $value[$i+1];
            $value[$i+1] = $tmp;
            my $tmpItem = $item[$i];
            $item[$i] = $item[$i+1];
            $item[$i+1] = $tmpItem;
            
        }
    }
}

for (my $i = 0; $i <=$#name; $i++ ) {
    print "$item[$i] ";
}

冒泡法（沉底法）排序

N个数需要排序N－1趟。