atRunet:Coolmax: Что-то о чём-то…

utf8 и другие кодировки русского языка

При обработке одного XML-файла я столкнулся с проблемой перекодировки из utf8 в windows-1251 и koi8-r. Вот такое решение получилось:

#!/usr/bin/perl

use strict;
use Text::Iconv;
use XML::RSS;

print "Hi!n";
my $rss = new XML::RSS;
my $converter = Text::Iconv->new('utf8','koi8-r');

$rss->parsefile(shift);

print "Кодировка: ".$rss->encoding."n";
print "Заголовок: ".$rss->channel('title')."n";

foreach my $item (@{$rss->{'items'}}) {
print $converter->convert($item->{'title'})."n";
};

print "Ok!n";

Share

Похожие записи:

Вы можете следить за обсуждением с помощью RSS 2.0 ленты.