Pass user-defined function to sort function : sort « Array « Perl






  1. Perl
  2. Array
  3. sort

Pass user-defined function to sort function

     

@array = (6, 5, 4, 3, 2, 1);

sub myfunction
{
   return (shift(@_) <=> shift(@_));
}

print join(", ", sort {myfunction($a, $b)} @array);








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.ASCII and Numeric Sort Using Subroutine
5.Using an Inline Function to Sort a Numeric List
6.Character and Number Sorts
7.Sorts
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