Numeric sort : 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 
Numeric sort
      


#!/usr/bin/perl
use strict;
use warnings;

sub numerically {
   $a*1.0 <=> $b*1.0 or $a cmp $b
};

my @words = qw(1e2 2e1 3 4 5);
print 'Normal sort:  ', join(', ', sort @words)"\n";
print 'Numeric sort: ', join(', ', sort numerically @words)"\n";

   
    
    
    
    
    
  
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.Pass user-defined function to sort function
9.Sort a string array
10.Sort an integer array
11.Using cmp in array sort customized function
12.The sort function sorts and returns a sorted array.
13.Using sort function in print statement
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.