X-Git-Url: http://lab.mitty.jp/git/?a=blobdiff_plain;f=misc%2Fsave.pl;h=77b6fb131a9f4acb671285ddae287baa467f7ef6;hb=5ab4cdffb02cff55b646f1905700b8a2ec0c2494;hp=5c5a1db5b2963d0612bf97290615feba0df29ca7;hpb=a1128c4312a43317531d547bd3af1f2f56bbaeb6;p=lab.git

diff --git a/misc/save.pl b/misc/save.pl
index 5c5a1db..77b6fb1 100755
--- a/misc/save.pl
+++ b/misc/save.pl
@@ -38,8 +38,16 @@ foreach my $url (@URLs) {
                 $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;