--- a/prog/03.pl	Tue Aug 24 21:30:47 2021 +0900
+++ b/prog/03.pl	Sat Aug 28 09:56:40 2021 +0900
@@ -1,7 +1,7 @@
 # ファイル分割
 
 my $i = 1;
-for my $pdf (glob "data/*pdf") {
+for my $pdf (glob "original_data/*pdf") {
 	open my $fi, '<', $pdf;
 	binmode($fi);
 
@@ -9,24 +9,24 @@
 	my $n = sprintf "%04d", $i++;
 
 	#---
-	open my $fo3, '>', "data03/$n";
+	open my $fo3, '>', "data/03/$n";
 	binmode($fo3);
 	read($fi, $buf, 50*1024);
-	print $fo3 $buf;
+	print {$fo3} $buf;
 	close $fo3;
 
 	#---
-	open my $fo4, '>', "data04/$n";
+	open my $fo4, '>', "data/04/$n";
 	binmode($fo4);
 	read($fi, $buf, 100*1024);
-	print $fo4 $buf;
+	print {$fo4} $buf;
 	close $fo4;
 
 	#---
-	open my $fo8, '>', "data08/$n";
+	open my $fo8, '>', "data/08/$n";
 	binmode($fo8);
 	while (read($fi, $buf, 1024)) {
-		print $fo8 $buf;
+		print {$fo8} $buf;
 	}
 	close $fo8;