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

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Array » sort 




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 - 1gt $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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.