Mercurial > mercurial > hgweb_iklist.hg.cgi

diff prog/07.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 13e80a745ef0
children
line wrap: on
line diff
--- a/prog/07.pl	Tue Aug 24 21:30:47 2021 +0900
+++ b/prog/07.pl	Sat Aug 28 09:56:40 2021 +0900
@@ -2,7 +2,7 @@
 
 my $tmp = "pdf";
 my $buf0;
-for my $file (glob "_data03/*") {
+for my $file (glob "_03/*") {
 
 	open my $fi, '<', $file;
 	binmode($fi);
@@ -24,8 +24,8 @@
 	rename $tmp, $fn;
 }
 
-open my $f, '>', $tmp;
-binmode($f);
-print {$f} $buf0;
-close $fo;
+#open my $f, '>', $tmp;
+#binmode($f);
+#print {$f} $buf0;
+#close $fo;