Perl で大きなファイルを分割

ちょっとしたことで、何十MBとかのテキストファイルを分割する必要がありました。
テキストエディタでは太刀打ちできなかったので、ローカルの Perl で対処。

PC 内に置いておくとなくしてしまうので、ここにメモ。
$lines で、何行ごとに分割するかを変えられます。

unless ($file = shift) {
	print "input target file\'s name. \\n";
	chomp($file = <>);
	length $file or exit;
}

$lines = 180000;
$count = 0;
$filecount = 0;

open IN, $file or die $!;
while (<in>) {
	if ($count % $lines == 0) {
		open OUT, "> file$filecount.sql" or die $!;
		$filecount ++;
	} else {
		print OUT;
	}
	$count ++;
}
close IN;
print "complete.\\n";

参考URL: perlでファイルを分割するプログラム – 教えて！goo