如何在 Perl 中对 IP 地址列表进行排序? [英] How can I sort a list of IP-addresses in Perl?

问题描述

我有一堆 IP 地址存储在一个数组中，例如:

I have a bunch of IP-addresses stored in an array, e.g.:

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

如何按升序对地址进行排序?我尝试了一个简单的sort，但它当然失败了.

How can I sort the addresses in the ascending order? I've tried a simple sort but it failed, of course.

推荐答案

IPv4 地址只是 32 位数字.

IPv4 addresses are just 32-bit numbers.

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

或

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

第一个也接受域名.

这篇关于如何在 Perl 中对 IP 地址列表进行排序?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！