Mega Code Archive

 

Categories / Perl / Array

 

Using an Inline Function to Sort a Numeric List

# Sorting numbers with an unamed subroutine @sorted_numbers= sort {$a <=> $b} (3,4,1,2); print "The sorted numbers are: @sorted_numbers", ".\n";