Mega Code Archive

 

Categories / Perl / Array

 

ASCII and Numeric Sort Using Subroutine

@list=("A","B", "C","D" ); print "Original list: @list\n"; # ASCII sort using a subroutine sub asc_sort{     $a cmp $b;  # Sort ascending order } @sorted_list=sort asc_sort(@list); print "Ascii sort: @sorted_list\n"; # Numeric sort using subroutine sub numeric_sort {     $a <=> $b ; }  # $a and $b are compared numerically @number_sort=sort numeric_sort 10, 0, 5, 9.5, 10, 1000; print "Numeric sort: @number_sort.\n";