--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/prog/03.pl	Sat Aug 21 13:03:13 2021 +0900
@@ -0,0 +1,35 @@
+# ファイル分割
+
+my $i = 1;
+for my $pdf (glob "data/*pdf") {
+	open my $fi, '<', $pdf;
+	binmode($fi);
+
+	my $buf;
+	my $n = sprintf "%04d", $i++;
+
+	#---
+	open my $fo3, '>', "data03/$n";
+	binmode($fo3);
+	read($fi, $buf, 50*1024);
+	print $fo3 $buf;
+	close $fo3;
+
+	#---
+	open my $fo4, '>', "data04/$n";
+	binmode($fo4);
+	read($fi, $buf, 100*1024);
+	print $fo4 $buf;
+	close $fo4;
+
+	#---
+	open my $fo8, '>', "data08/$n";
+	binmode($fo8);
+	while (read($fi, $buf, 1024)) {
+		print $fo8 $buf;
+	}
+	close $fo8;
+
+	close $fi;
+}
+