Changeset a1128c4 in lab.git for misc/save.pl

Timestamp:

Mar 10, 2013 6:54:24 PM (12 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

6eaca65

Parents:

a74d46a

Message:

• convert to FB_HTMLCREF if there are malformed characters

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@203 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• misc/save.pl (modified) (2 diffs)

misc/save.pl

@@ -14 +14 @@
 
 my $ua  = LWP::UserAgent->new;
-my $enc = find_encoding($coding);
 
 my @URLs;
@@ -34 +33 @@
         my $decoder = Encode::Guess->guess($filename);
         if (ref($decoder)) {
-            $filename = $enc->encode($decoder->decode($filename));
+            print $decoder->name;
+            $filename = encode(
+                $coding,
+                $decoder->decode($filename),
+                Encode::FB_HTMLCREF
+            );
+            print ": $filename\n";
         }