projects
/
lab.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* memo for 8th Kernel/VM expedition
[lab.git]
/
misc
/
save.pl
diff --git
a/misc/save.pl
b/misc/save.pl
index
5c5a1db
..
77b6fb1
100755
(executable)
--- a/
misc/save.pl
+++ b/
misc/save.pl
@@
-38,8
+38,16
@@
foreach my $url (@URLs) {
$decoder->decode($filename),
Encode::FB_HTMLCREF
);
$decoder->decode($filename),
Encode::FB_HTMLCREF
);
- print ": $filename\n";
}
}
+ else {
+ print "utf8?";
+ $filename = encode(
+ $coding,
+ decode("utf8", $filename),
+ Encode::FB_HTMLCREF
+ );
+ }
+ print ": $filename\n";
my $suffix = 1;
my $savename = $filename;
my $suffix = 1;
my $savename = $filename;