Mercurial > mercurial > hgweb_iklist.hg.cgi

annotate prog/07.pl @ 3:d3e201c48ff8 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bug fix.
author pyon
date Wed, 29 Sep 2021 22:04:51 +0900
parents c0f76f8e67fa
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
1 # ファイル分割
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
2
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
3 my $tmp = "pdf";
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
4 my $buf0;
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 1
diff changeset
5 for my $file (glob "_03/*") {
1
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
6
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
7 open my $fi, '<', $file;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
8 binmode($fi);
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
9
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
10 read($fi, $buf0, 4);
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
11
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
12 open my $fo, '>', $tmp;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
13 binmode($fo);
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
14
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
15 my $buf;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
16 while (read($fi, $buf, 1024)) {
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
17 print {$fo} $buf;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
18 }
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
19 close $fo;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
20
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
21 close $fi;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
22
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
23 my $fn = substr $file, 1;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
24 rename $tmp, $fn;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
25 }
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
26
2
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 1
diff changeset
27 #open my $f, '>', $tmp;
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 1
diff changeset
28 #binmode($f);
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 1
diff changeset
29 #print {$f} $buf0;
c0f76f8e67fa ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
pyon <pyon@macmini>
parents: 1
diff changeset
30 #close $fo;
1
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
31