如何在Perl中对IP地址列表进行排序？

概述我有一堆存储在数组中的IP地址,例如： my @ip = qw(10.11.1.1 10.100.1.1 ...); 如何按升序对地址进行排序？我尝试过一种简单的方法但当然失败了. IPv4地址只是32位数字. use Socket qw( inet_aton );my @sorted = map substr($_, 4), sort map inet 我有一堆存储在数组中的IP地址,例如： @H_419_7@

@H_419_7@

my @ip = qw(10.11.1.1 10.100.1.1 ...);

@H_419_7@如何按升序对地址进行排序？我尝试过一种简单的方法但当然失败了.

解决方法 IPv4地址只是32位数字. @H_419_7@

@H_419_7@

use Socket qw( inet_aton );my @sorted =    map substr($_,4),sort          map inet_aton($_) . $_,@ips;

@H_419_7@要么

@H_419_7@

my @sorted =    map substr($_,sort          map pack('C4a*',split(/\./),$_),@ips;

@H_419_7@第一个也接受域名.

总结

以上是内存溢出为你收集整理的如何在Perl中对IP地址列表进行排序？全部内容，希望文章能够帮你解决如何在Perl中对IP地址列表进行排序？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。