perlの構文がおかしいようです。

質問

構文は以下の通りです。IF文のところがおかしいようですが、どこに間違いがあるのか教えていただけないでしょうか。

sub ippack {
my ($a, $b, $c, $d) = @_;
return ($a << 24) | ($b << 16) | ($c << 8) | $d;
}
sub ipunpack() {
my ($n) = @_;
return (($n>>24)&0xFF,($n>>16)&0xFF,($n>>8)&0xFF,$n&0xFF);
}
open (IN,"<useIP.txt")
while(my $input = <IN>)
{
if ($input =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+) ([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/){;
my $n = &ippack($1,$2,$3,$4);
my $m = &ippack($5,$6,$7,$8);
$n = $n & $m;

$m = ~$m & 0xFFFFFFFF;
for(my $i = 0; $i <= $m; $i++) {
print join(".", &ipunpack($n+$i))."\n ";
}
} if-else($input =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/);{
print "$input\n";
}
print "\n";
}

回答No.1

kmee · ベストアンサー

> } if-else($input =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/);{

if-else ってなに?