Dotaz: Perl kodovani

[Ficik]

Dobrý den, snažím se upravit jeden script (kousek z něj):

my $request = "http://www.csfd.cz/film/" . $movieid ;

my $response = get $request;

print $response;

Načítá stránku ze serveru csfd (kódování windows-1250). Pokud tuto stránku vypíšu tak diakritika je nečitelná. ....a zaèít nový ivot... S pomocí jejích pøítelkyò zaèíná.... kódování systému je utf8. Potřeboval bych diakritiku buď odstranit nebo lépe opravit. Děkuji

Odpovědi

[frEon]

http://search.cpan.org/~mpiotr/Text-Iconv-1.7/Iconv.pm

[Ficik]

Toto jsem přidal pod výše uvedeny script:

my $converter = Text::Iconv->new('UTF-8', 'WINDOWS-1250');

my $converted = $converter->convert($response);

print $converted;

a mám

Use of uninitialized value in print at csfd.pl line 126

Kde dělám chybu? Děkuji

[Ficik]

už vim...ty kódování opačně.