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

发布时间：2020-12-15 23:29:40 所属栏目：大数据来源：网络整理

导读：我有一堆存储在数组中的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地址,例如：

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_aton($_) . $_,@ips;

要么

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

第一个也接受域名.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!