How to Sort an Array in Perl - Step by Step Examples
How to Sort an Array in Perl ?
Answer
To sort an array in Perl, you can use the sort function.
✐ Examples
1 Sort Integer Array in Ascending Order
In this example,
- We create an integer array named
@numbers
with values 5, 2, 8, 1, 6. - We use the
sort
function to sort the array in ascending order. - Finally, we print the sorted array
@numbers
to the console.
Perl Program
@numbers = (5, 2, 8, 1, 6);
sort @numbers;
print "Sorted array in ascending order: @numbers\n";
Output
Sorted array in ascending order: 1 2 5 6 8
2 Sort Integer Array in Descending Order
In this example,
- We create an integer array named
@numbers
with values 5, 2, 8, 1, 6. - We use the
sort
function with a custom comparison function that sorts in descending order. - Finally, we print the sorted array
@numbers
to the console.
Perl Program
@numbers = (5, 2, 8, 1, 6);
sub desc_sort { $b <=> $a }
@sorted = sort desc_sort @numbers;
print "Sorted array in descending order: @sorted\n";
Output
Sorted array in descending order: 8 6 5 2 1
Summary
In this tutorial, we learned How to Sort an Array in Perl language with well detailed examples.
More Perl Arrays Tutorials
- How to Declare an Array in Perl ?
- How to Initialize an Array in Perl ?
- How to Access Array Elements in Perl ?
- How to Access Array Elements using Index in Perl ?
- How to get First Element in Array in Perl ?
- How to get Last Element in Array in Perl ?
- How to check if an Array is Empty in Perl ?
- How to check if an Array is Not Empty in Perl ?
- How to get Sub Array in Perl ?
- How to Get Array Length in Perl ?
- How to Iterate Over an Array in Perl ?
- How to Iterate Over an Array in Reverse Order in Perl ?
- How to get the Index of Specified Element in an Array in Perl ?
- How to check if Specified Element is present in the Array in Perl ?
- How to count the Number of Occurrences of Specified Element in the Array in Perl ?
- How to Sort an Array in Perl ?
- How to Sort an Array in Ascending Order in Perl ?
- How to Sort an Array in Descending Order in Perl ?
- How to create a Two Dimensional Array in Perl ?
- How to Iterate over a Two Dimensional Array in Perl ?
- How to create a Three Dimensional Array in Perl ?
- How to Copy an Array in Perl ?
- How to Split an Array in Perl ?
- How to Join Arrays in Perl ?
- How to check if Two Arrays are Equal in Perl ?
- How to check if Two Arrays have Same Elements (Regardless of Order) in Perl ?
- How to Convert an Array of Integers to an Array of Strings in Perl ?
- How to Convert an Array of Strings to an Array of Integers in Perl ?
- How to Reverse an Array in Perl ?
- How to Shuffle an Array in Perl ?
- How to Rotate Elements in an Array in Perl ?
- How to Filter Elements of an Array based on a Condition in Perl ?
- How to Declare an Integer Array in Perl ?
- How to Declare a Float Array in Perl ?
- How to Declare a String Array in Perl ?
- How to Remove Duplicates in an Array in Perl ?
- How to Remove Specific Element from an Array in Perl ?
- How to Remove Element from Array based on a Condition in Perl ?
- How to Sort a String Array in Dictionary Order in Perl ?
- How to Concatenate Strings in Array in Perl ?