RE: sort ip address

On 5/25/07, Bourgneuf Francois < francois.bourgneufgroupe-mma.fr"> francois.bourgneufgroupe-mma.fr> wrote:

ip=(';172.27.32.200', ' 172.19.32.100', '19.1.1.60', ' 192.20.30.133', '172.27.32.100');

 

print "$_n&quot; foreach sort {(split '.';, $a)[0]<=>(split '.';, $b)[0]||(split '.';, $a)[1]&lt;=>(split '.';, $b)[1]||(split '.';, $a)[2]<=>(split '.9;, $b)[2]||(split '.';, $a)[3]&lt;=>(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 : perl-win32-web-bounceslistserv.ActiveState.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">perl-win32-web-bounceslistserv.ActiveState.com [mailto: perl-win32-web-bounceslistserv.ActiveState.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">perl-win32-web-bounceslistserv.ActiveState.com] De la part de Kenneth Chan
Envoyé : vendredi 25 mai 2007 09:15
À&nbsp;: perl-win32-weblistserv.activestate.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">perl-win32-weblistserv.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
listserv.ActiveState.com">Perl-Win32-Weblistserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs