ASCII and Numeric Sort Using Subroutine : sort « Array « Perl






  1. Perl
  2. Array
  3. sort

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";








Related examples in the same category

1.The sort command sorts an array
2.Sort in action
3.A program that sorts an array.
4.Using an Inline Function to Sort a Numeric List
5.Character and Number Sorts
6.Sorts
7.Pass user-defined function to sort function
8.Sort a string array
9.Sort an integer array
10.Using cmp in array sort customized function
11.The sort function sorts and returns a sorted array.
12.Using sort function in print statement
13.Numeric sort
14.Using <=> operator in array sort function
15.Print function with sort and customized sorting function
16.Print function with sort and customized sorting function in a descending order