ループの先頭に戻る
nextを使うとループの先頭に処理を戻すことができます。
while (my $line = <>) {
next if ($line =~ /^\n/);
next if ($line =~ /^#/);
print $line;
}
関連項目
・nextループ制御コマンド・ループから抜ける
while (my $line = <>) {
next if ($line =~ /^\n/);
next if ($line =~ /^#/);
print $line;
}