Thanks Bour. This is an excellent way to sort the ip address
Thanks,
Ken
On 5/25/07, Bourgneuf Francois <[EMAIL PROTECTED]> wrote:
@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
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
