1. 程式人生 > >冒泡法排序

冒泡法排序

use strict;

my@name= qw (wang li jun);
my@value= qw (1534.715);
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]
";
}