冒泡法排序

 

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趟。