Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

UTF8->koi8r

0 views
Skip to first unread message

Stepanov Sergey

unread,
Oct 22, 2001, 10:58:58 AM10/22/01
to
Привет ALL
из базы получаю данные в UTF8 , можно ли как-нибудь конвертить
это в 1251 или koi8 ?

Заранее благодарен


Pavel Ammosov

unread,
Oct 25, 2001, 4:29:58 AM10/25/01
to
Stepanov Sergey wrote:
SS>из базы получаю данные в UTF8 , можно ли как-нибудь конвертить
SS>это в 1251 или koi8 ?

А сама она не может?

#!/usr/bin/perl -w
use strict;
use Unicode::Map8;
use Unicode::String qw(utf8);

my $utf8_string = "строка в utf8"; # Я бы написал, но она гейтом побьется
my $koi8 = Unicode::Map8->new("koi8-r") || die;
print $koi8->to8(utf8($utf8_string)->utf16), "\n";

--
Павел Аммосов, email: apa...@aha.ru, icq uin: 19210183
www: http://isabase.philol.msu.ru/~apavel/

0 new messages