Mercurial > mercurial > hgweb_iklist.hg.cgi

comparison prog/03.pl @ 2:c0f76f8e67fa draft v1.0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
author pyon <pyon@macmini>
date Sat, 28 Aug 2021 09:56:40 +0900
parents 520044113ef0
children
comparison
equal deleted inserted replaced
1:13e80a745ef0 2:c0f76f8e67fa
1 # ファイル分割 1 # ファイル分割
2 2
3 my $i = 1; 3 my $i = 1;
4 for my $pdf (glob "data/*pdf") { 4 for my $pdf (glob "original_data/*pdf") {
5 open my $fi, '<', $pdf; 5 open my $fi, '<', $pdf;
6 binmode($fi); 6 binmode($fi);
7 7
8 my $buf; 8 my $buf;
9 my $n = sprintf "%04d", $i++; 9 my $n = sprintf "%04d", $i++;
10 10
11 #--- 11 #---
12 open my $fo3, '>', "data03/$n"; 12 open my $fo3, '>', "data/03/$n";
13 binmode($fo3); 13 binmode($fo3);
14 read($fi, $buf, 50*1024); 14 read($fi, $buf, 50*1024);
15 print $fo3 $buf; 15 print {$fo3} $buf;
16 close $fo3; 16 close $fo3;
17 17
18 #--- 18 #---
19 open my $fo4, '>', "data04/$n"; 19 open my $fo4, '>', "data/04/$n";
20 binmode($fo4); 20 binmode($fo4);
21 read($fi, $buf, 100*1024); 21 read($fi, $buf, 100*1024);
22 print $fo4 $buf; 22 print {$fo4} $buf;
23 close $fo4; 23 close $fo4;
24 24
25 #--- 25 #---
26 open my $fo8, '>', "data08/$n"; 26 open my $fo8, '>', "data/08/$n";
27 binmode($fo8); 27 binmode($fo8);
28 while (read($fi, $buf, 1024)) { 28 while (read($fi, $buf, 1024)) {
29 print $fo8 $buf; 29 print {$fo8} $buf;
30 } 30 }
31 close $fo8; 31 close $fo8;
32 32
33 close $fi; 33 close $fi;
34 } 34 }