※ ChatGPTを利用し、要約された質問です（原文：perlの構文がおかしいようです。）
perlの構文エラーの原因は？
このQ&Aのポイント
perlの構文エラーが発生しています。詳細なエラーの原因を教えてください。
perlの構文に問題があります。正しい構文に修正する方法を教えてください。
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";
}
