Bonjour,

J'ai un problème de retour des caractère accentué qui ne fonctionne pas.
Pouvez vous m'orienter vers une solution ?
Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
use strict;
use utf8;
use warnings qw(all);
 
use Data::Dumper;
use Encode;
use LWP;
 
my $href;
my @ligne;
my $a;
 
    my $url = 'http://export.openstreetmap.fr/contours-administratifs/communes/';
    my $ua = LWP::UserAgent->new;
    $ua->agent( 'Mozilla/5.0' );
    my $response = $ua->get( $url );
    $response->decoded_content((charset => 'utf-8'));
    my $content = $response->content;
    $content = decode( 'utf-8', $content ); # la page est en utf-8, alors on decode l'utf-8
#    print Dumper($content);
    @ligne = split(/\n/,$content);
    foreach $a (@ligne){
#        print $a."\n";
            if ($a =~ /<td><a href="([0-9].+gz)">.*<\/a>/) {
                $href = $1;
                my $url_shp = "http://export.openstreetmap.fr/contours-administratifs/communes/".$href;
                print $url_shp."\n";
            }
    }
Voilà le type de retour que j'ai : http://export.openstreetmap.fr/conto...ommunes/07-Ard%c3%a8che.shp.tar.gz

Merci d'avance pour votre retour
Franpom