Changeset 203 in lab
- Timestamp:
- Mar 10, 2013 6:54:24 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/save.pl
r202 r203 14 14 15 15 my $ua = LWP::UserAgent->new; 16 my $enc = find_encoding($coding);17 16 18 17 my @URLs; … … 34 33 my $decoder = Encode::Guess->guess($filename); 35 34 if (ref($decoder)) { 36 $filename = $enc->encode($decoder->decode($filename)); 35 print $decoder->name; 36 $filename = encode( 37 $coding, 38 $decoder->decode($filename), 39 Encode::FB_HTMLCREF 40 ); 41 print ": $filename\n"; 37 42 } 38 43
Note: See TracChangeset
for help on using the changeset viewer.