Mercurial > mercurial > hgweb_iklist.hg.cgi

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
1 # ファイル分割
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
2
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
3 my $i = 1;
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
4 for my $pdf (glob "original_data/*pdf") {
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
5 open my $fi, '<', $pdf;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
6 binmode($fi);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
7
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
8 my $buf;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
9 my $n = sprintf "%04d", $i++;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
10
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
11 #---
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
12 open my $fo3, '>', "data/03/$n";
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
13 binmode($fo3);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
14 read($fi, $buf, 50*1024);
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
15 print {$fo3} $buf;
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
16 close $fo3;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
17
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
18 #---
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
19 open my $fo4, '>', "data/04/$n";
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
20 binmode($fo4);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
21 read($fi, $buf, 100*1024);
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
22 print {$fo4} $buf;
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
23 close $fo4;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
24
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
25 #---
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
26 open my $fo8, '>', "data/08/$n";
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
27 binmode($fo8);
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
28 while (read($fi, $buf, 1024)) {
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 0
diff changeset
29 print {$fo8} $buf;
0
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
30 }
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
31 close $fo8;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
32
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
33 close $fi;
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
34 }
520044113ef0 beta release.
pyon <pyon@macmini>
parents:
diff changeset
35