string - 在 Perl 中添加 IP 地址？

Question

假设我有一个函数“start_ip_address”、“ip_address_increment”和“number_of_increment”的参数。

我想打印 start_ip_address，然后将该地址增加 number_of_increment 次。

因此，如果“start_ip_address”= 192.168.0.0 和“ip_address_increment”= 0.0.1.1 和“number_of_increment”= 3，我想打印：

192.168.0.0

192.168.1.1

192.168.2.2

192.168.3.3

我怎样才能做到这一点？我对 Perl 字符串操作很不好。

Answer 1

IPv4 地址只是 32 位整数。每个数字代表一个字节。

sub to_num { unpack 'N', pack 'C4', split /\./, $_[0] }
sub fr_num { join '.', unpack 'C4', pack 'N', $_[0] }

my $ip = to_num($start_ip_address);
my $inc = to_num($ip_address_increment);

say fr_num($ip);
for (1..$number_of_increments) {
   $ip += $inc;
   say fr_num($ip);
}