perl实现基本的排序算法

use Data::Dumper;数组 #插入排序 uisub insert_sort{     my (@arr) = @_;     my $n   = $#arr+1;     my $tmp;     my $i;     my $j;     if($n == 0 || $n == 1)     {         return "count: $n\nno need to sort.\

>>阅读原文<<