Changeset 2939


Ignore:
Timestamp:
Sep 4, 2012, 10:26:30 PM (8 years ago)
Author:
nosdeputes
Message:

fix download in utf-8

Location:
cpc/trunk/project/batch/depute
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpc/trunk/project/batch/depute/download_deputes.pl

    r2908 r2939  
    1313        $a->get($uri);
    1414        mkdir html unless -e "html/" ;
    15         open FILE, ">", "html/$file";
     15        open FILE, ">:utf-8", "html/$file";
    1616        print FILE $a->content;
    1717        close FILE;
  • cpc/trunk/project/batch/depute/download_one.pl

    r2770 r2939  
    66$uri = $file = shift;
    77$file =~ s/^.*\/([^\/]+)/$1/;
    8 print "$file\n" if ($verbose);
     8print "$file : $uri\n";
    99$a->get($uri);
    1010mkdir html unless -e "html/" ;
    11 open FILE, ">", "html/$file";
     11open FILE, ">:utf-8", "html/$file";
    1212print FILE $a->content;
    1313close FILE;
Note: See TracChangeset for help on using the changeset viewer.