Mercurial > mercurial > hgweb_iklist.hg.cgi
comparison prog/07.pl @ 2:c0f76f8e67fa draft v1.0
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 | 13e80a745ef0 |
| children |
comparison
equal
deleted
inserted
replaced
| 1:13e80a745ef0 | 2:c0f76f8e67fa |
|---|---|
| 1 # ファイル分割 | 1 # ファイル分割 |
| 2 | 2 |
| 3 my $tmp = "pdf"; | 3 my $tmp = "pdf"; |
| 4 my $buf0; | 4 my $buf0; |
| 5 for my $file (glob "_data03/*") { | 5 for my $file (glob "_03/*") { |
| 6 | 6 |
| 7 open my $fi, '<', $file; | 7 open my $fi, '<', $file; |
| 8 binmode($fi); | 8 binmode($fi); |
| 9 | 9 |
| 10 read($fi, $buf0, 4); | 10 read($fi, $buf0, 4); |
| 22 | 22 |
| 23 my $fn = substr $file, 1; | 23 my $fn = substr $file, 1; |
| 24 rename $tmp, $fn; | 24 rename $tmp, $fn; |
| 25 } | 25 } |
| 26 | 26 |
| 27 open my $f, '>', $tmp; | 27 #open my $f, '>', $tmp; |
| 28 binmode($f); | 28 #binmode($f); |
| 29 print {$f} $buf0; | 29 #print {$f} $buf0; |
| 30 close $fo; | 30 #close $fo; |
| 31 | 31 |