A program that sorts an array. : sort « Array « Perl





A program that sorts an array.

     
#!/usr/local/bin/perl 

# read the array from standard input one item at a time 
print ("Enter the array to sort, one item at a time.\n"); 
print ("Enter an empty line to quit.\n"); 
$count = 1; 
$inputline = <STDIN>; 
chop ($inputline); 
while ($inputline ne "") { 
    @array[$count-1] = $inputline; 
    $count++; 
    $inputline = <STDIN>; 
    chop ($inputline); 
} 
 
# now sort the array 
$count = 1; 
while ($count < @array) { 
   $x = 1; 
   while ($x < @array) { 
       if ($array[$x - 1] gt $array[$x]) { 
          @array[$x-1,$x] = @array[$x,$x-1]; 
       } 
       $x++; 
    } 
$count++; 
} 

print ("@array\n"); 

   
    
    
    
    
  










Related examples in the same category

1.The sort command sorts an array
2.Sort in action
3.ASCII and Numeric Sort Using Subroutine
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