|
0
|
1 # ファイル分割
|
|
|
2
|
|
|
3 my $i = 1;
|
|
|
4 for my $pdf (glob "data/*pdf") {
|
|
|
5 open my $fi, '<', $pdf;
|
|
|
6 binmode($fi);
|
|
|
7
|
|
|
8 my $buf;
|
|
|
9 my $n = sprintf "%04d", $i++;
|
|
|
10
|
|
|
11 #---
|
|
|
12 open my $fo3, '>', "data03/$n";
|
|
|
13 binmode($fo3);
|
|
|
14 read($fi, $buf, 50*1024);
|
|
|
15 print $fo3 $buf;
|
|
|
16 close $fo3;
|
|
|
17
|
|
|
18 #---
|
|
|
19 open my $fo4, '>', "data04/$n";
|
|
|
20 binmode($fo4);
|
|
|
21 read($fi, $buf, 100*1024);
|
|
|
22 print $fo4 $buf;
|
|
|
23 close $fo4;
|
|
|
24
|
|
|
25 #---
|
|
|
26 open my $fo8, '>', "data08/$n";
|
|
|
27 binmode($fo8);
|
|
|
28 while (read($fi, $buf, 1024)) {
|
|
|
29 print $fo8 $buf;
|
|
|
30 }
|
|
|
31 close $fo8;
|
|
|
32
|
|
|
33 close $fi;
|
|
|
34 }
|
|
|
35
|
