Mercurial > mercurial > hgweb_iklist.hg.cgi

comparison prog/03.pl @ 0:520044113ef0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
beta release.
author pyon <pyon@macmini>
date Sat, 21 Aug 2021 13:03:13 +0900
parents
children c0f76f8e67fa
comparison
equal deleted inserted replaced
-1:000000000000 0:520044113ef0
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