# ファイル分割

my $i = 1;
for my $pdf (glob "original_data/*pdf") {
	open my $fi, '<', $pdf;
	binmode($fi);

	my $buf;
	my $n = sprintf "%04d", $i++;

	#---
	open my $fo3, '>', "data/03/$n";
	binmode($fo3);
	read($fi, $buf, 50*1024);
	print {$fo3} $buf;
	close $fo3;

	#---
	open my $fo4, '>', "data/04/$n";
	binmode($fo4);
	read($fi, $buf, 100*1024);
	print {$fo4} $buf;
	close $fo4;

	#---
	open my $fo8, '>', "data/08/$n";
	binmode($fo8);
	while (read($fi, $buf, 1024)) {
		print {$fo8} $buf;
	}
	close $fo8;

	close $fi;
}