RE: sort ip address

Fri, 25 May 2007 00:55:39 -0700 

@ip=('172.27.32.200', '172.19.32.100', '19.1.1.60', '192.20.30.133', 
'172.27.32.100');
 
print "$_\n" foreach sort {(split '\.', $a)[0]<=>(split '\.', $b)[0]||(split 
'\.', $a)[1]<=>(split '\.', $b)[1]||(split '\.', $a)[2]<=>(split '\.', 
$b)[2]||(split '\.', $a)[3]<=>(split '\.', $b)[3]} @ip;
 
19.1.1.60
172.19.32.100
172.27.32.100
172.27.32.200
192.20.30.133
 
Bour9


  _____  

        De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] De la part de Kenneth 
Chan
        Envoyé : vendredi 25 mai 2007 09:15
        À : perl-win32-web@listserv.activestate.com
        Objet : sort ip address
        
        
        Hi,
        
        Do you have any perl script to sort the IP address?
        
        172.27.32.200
        172.19.32.100
        10.1.1.60
        192.20.30.133
        
        thanks
        


_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to