PERL Spreadsheet::WriteExcel некорректное отображение русского текста

[Влад]

PERL Spreadsheet::WriteExcel некорректное отображение русского текста

При открытии XLS файла, сформированного Spreadsheet::WriteExcel (PHP на Windows XP),
в Open Office 2.0 русский текст отображается следующим образом:

0357 -- 'Âåðòèêàëü' Ïðèâàòíà ô³ðìà

при открытии в Microsoft Office Excel -- все нормально.

пробовал $xls->_codepage =0x04E3
результат такой же

и так пробовал
function uc2html($str) {
return iconv('UNICODELITTLE','UTF-8',$str);
}
результат такой (другой текст):
ë¤_â?ºã˜³â´_â?_îˆ_ï‹_î›_î·¥


Как эту пакость можно побороть? Может какими-то настройками в реестре сервера?
Может кто сталкивался с такой проблемой, помогите плиз.

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

-~{}~ 31.03.06 17:18:

Нашлось решение
необходимо использовать следующий РНР команды:

$xls->_codepage =0x04E3;
$format_title->setFontFamily('time new roman');

решение из темы:
http://phpclub.ru/talk/showthread.php?s=&threadid=70121&highlight=Excel+Writer
у кого не работает пример, а у кого заработал

Спс.

 

[MpaK69]

sub uc2win{
my $text=shift;
$text=~s/\x21\x16/№/g;

$text=~s/\x04\x30/а/g;
$text=~s/\x04\x31/б/g;
$text=~s/\x04\x32/в/g;
$text=~s/\x04\x33/г/g;
$text=~s/\x04\x34/д/g;
$text=~s/\x04\x35/е/g;
$text=~s/\x04\x51/ё/g;
$text=~s/\x04\x36/ж/g;
$text=~s/\x04\x37/з/g;
$text=~s/\x04\x38/и/g;
$text=~s/\x04\x39/й/g;
$text=~s/\x04\x3A/к/g;
$text=~s/\x04\x3B/л/g;
$text=~s/\x04\x3C/м/g;
$text=~s/\x04\x3D/н/g;
$text=~s/\x04\x3E/о/g;
$text=~s/\x04\x3F/п/g;
$text=~s/\x04\x40/р/g;
$text=~s/\x04\x41/с/g;
$text=~s/\x04\x42/т/g;
$text=~s/\x04\x43/у/g;
$text=~s/\x04\x44/ф/g;
$text=~s/\x04\x45/х/g;
$text=~s/\x04\x46/ц/g;
$text=~s/\x04\x47/ч/g;
$text=~s/\x04\x48/ш/g;
$text=~s/\x04\x49/щ/g;
$text=~s/\x04\x4C/ь/g;
$text=~s/\x04\x4A/ъ/g;
$text=~s/\x04\x4B/ы/g;
$text=~s/\x04\x4D/э/g;
$text=~s/\x04\x4E/ю/g;
$text=~s/\x04\x4F/я/g;

$text=~s/\x04\x10/А/g;
$text=~s/\x04\x11/Б/g;
$text=~s/\x04\x12/В/g;
$text=~s/\x04\x13/Г/g;
$text=~s/\x04\x14/Д/g;
$text=~s/\x04\x15/Е/g;
$text=~s/\x04\x1/Ё/g;
$text=~s/\x04\x16/Ж/g;
$text=~s/\x04\x17/З/g;
$text=~s/\x04\x18/И/g;
$text=~s/\x04\x19/Й/g;
$text=~s/\x04\x1A/К/g;
$text=~s/\x04\x1B/Л/g;
$text=~s/\x04\x1C/М/g;
$text=~s/\x04\x1D/Н/g;
$text=~s/\x04\x1E/О/g;
$text=~s/\x04\x1F/П/g;
$text=~s/\x04\x20/Р/g;
$text=~s/\x04\x21/С/g;
$text=~s/\x04\x22/Т/g;
$text=~s/\x04\x23/У/g;
$text=~s/\x04\x24/Ф/g;
$text=~s/\x04\x25/Х/g;
$text=~s/\x04\x26/Ц/g;
$text=~s/\x04\x27/Ч/g;
$text=~s/\x04\x28/Ш/g;
$text=~s/\x04\x29/Щ/g;
$text=~s/\x04\x2C/Ь/g;
$text=~s/\x04\x2A/Ъ/g;
$text=~s/\x04\x2B/Ы/g;
$text=~s/\x04\x2D/Э/g;
$text=~s/\x04\x2E/Ю/g;
$text=~s/\x04\x2F/Я/g;
}

 

[schmeiser]

можно перекодировать в UTF-16BE которий использует ексель