This is just an example sort, for real use you should take the intern sort from Perl.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#!/usr/bin/perl use strict; #example array my @arr = (4,7,2,77,8,4,9,3,35,7,678,1,9); #test print join(",",@arr)."n"; @arr = bubblesort(@arr); print join(",",@arr)."n"; #sort sub sub bubblesort { my @array = @_; for(my $i=0,my $c=1;$i <= $#array;++$i){ if($array[$i] < $array[$i+1]){ $c = $array[$i]; $array[$i] = $array[$i+1]; $array[$i+1] = $c; $i = -1; } } return(@array); } |
The Result looks like this:
1 2 |
4,7,2,77,8,4,9,3,35,7,678,1,9 678,77,35,9,9,8,7,7,4,4,3,2,1 |