Question

我有一个网络，我想为所有IP地址分配一个名称。为此，我想制作一个perl脚本，它将在ip范围的单独行上打印每个ip。我通过Net找到了一种方法：IP但是我无法弄清楚如何解析我的命令行ip范围到脚本（我是perl的新手）。我的脚本看起来像这样：

#!/usr/local/bin/perl
use Net::IP;
my $test=join(' ',@ARGV);
my $ip = new Net::IP ('$test') || die;
do {
    print $ip->ip(), "\n";
} while (++$ip);

exit;

所以我唯一的问题是命令行语法如下所示：perl ip.pl 192.168.10.1 - 192.168.10.255我可以;弄清楚如何在Net：IP之后将这个参数解析到我的脚本中（＆＃ 39;这里＆＃39;）。

感谢您的每一个想法。

Answer 1

更改

my $ip = new Net::IP ('$test') || die;

到

my $ip = new Net::IP ($test) || die;

单引号不会评估您的标量。

另外，总是

use strict;
use warnings;

perl解析命令行参数

1 个答案: