ループの先頭に戻る


 nextを使うとループの先頭に処理を戻すことができます。
while (my $line = <>) {
	next if ($line =~ /^\n/);
	next if ($line =~ /^#/);
	print $line;
}

関連項目

nextループ制御コマンド
ループから抜ける