Пиплз! Ай ниид хелп! Короче: задача создать из скрипта таблицу Excel. Для этого скачал модуль Spreadsheet-WriteExcelXML.ppd. Всё бы ничего, да вот проблема: мать его, Excel перекодит все данные в юникод. Епстессно, с английским всё обстоит просто великолепно, а вот русские буквы страдают по причине 8-го бита. Что делать? Мож кто встречался с такой хернёй? Пробовал Lingua::RU::Charset, но что-то не прёт. Всё осложняется тем, что у меня WinPerl от ActiveState 5.8.7.813 ну и Винды ХР соответственно...

Думаю Spreadsheet::WriteExcel тебе поможет. Там кажется и пример соответствующий есть

shootnix есть метод set_codepage().

К модулю прилагается ряд примеров:

Цитата

Unicode     =======     unicode.pl              Simple example of using Unicode UTF16 strings.     unicode_japan.pl        Write Japanese Unicode strings using UTF16.     unicode_list.pl        List the chars in a Unicode font.     unicode_2022_jp.pl      Japanese: ISO-2022-JP to utf8 in perl 5.8.     unicode_8859_11.pl      Thai:    ISO-8859_11 to utf8 in perl 5.8.     unicode_8859_7.pl      Greek:    ISO-8859_7  to utf8 in perl 5.8.     unicode_big5.pl        Chinese:  BIG5        to utf8 in perl 5.8.     unicode_cp1251.pl      Russian:  CP1251      to utf8 in perl 5.8.     unicode_cp1256.pl      Arabic:  CP1256      to utf8 in perl 5.8.     unicode_koi8r.pl        Russian:  KOI8-R      to utf8 in perl 5.8.     unicode_polish_utf8.pl  Polish :  UTF8        to utf8 in perl 5.8.     unicode_shift_jis.pl    Japanese: Shift JIS  to utf8 in perl 5.8.

Тебе нужен unicode_cp1251.pl

Если не получится, то можно воспользоваться модулем cyrillic и в ручную переконвертировать данные.

sharq
Спасиба, но что-то я не нахожу енти примеры, мож не там ишшу...

shootnix плохо ищешь!

Код

#!/usr/bin/perl -w ############################################################################## # # A simple example of converting some Unicode text to an Excel file using # Spreadsheet::WriteExcelXML and perl 5.8. # # This example generates some Russian from a file with CP1251 encoded text. # # # reverse('©'), September 2004, John McNamara, [email protected] # # Perl 5.8 or later is required for proper utf8 handling. For older perl # versions you should use UTF16 and the write_unicode() method. # See the write_unicode section of the Spreadsheet::WriteExcelXML docs. # require 5.008; use strict; use Spreadsheet::WriteExcelXML; my $workbook  = Spreadsheet::WriteExcelXML->new("unicode_cp1251.xls"); my $worksheet = $workbook->add_worksheet();    $worksheet->set_column('A:A', 50); my $file = 'unicode_cp1251.txt'; open FH, '<:encoding(cp1251)', $file  or die "Couldn't open $file: $!\n"; my $row = 0; while (<FH>) {     next if /^#/; # Ignore the comments in the sample file.     chomp;     $worksheet->write($row++, 0,  $_); } __END__

Так и для Spreadsheet::WriteExcel в комплекте даются примеры

Цитата

Unicode     =======     unicode.pl              Simple example of using Unicode UTF16 strings.     unicode_japan.pl        Write Japanese Unicode strings using UTF16.     unicode_cyrillic.pl    Write Russian cyrillic strings using UTF8.     unicode_list.pl        List the chars in a Unicode font.     unicode_2022_jp.pl      Japanese: ISO-2022-JP to utf8 in perl 5.8.     unicode_8859_11.pl      Thai:    ISO-8859_11 to utf8 in perl 5.8. .................

хотя, shootnix, решать тебе!

P.s.
Хотя, честно говоря, не работал ни с тем, ни с другим.
Просто была аналогичная проблема, когда парсил *.xls-файлы.

Thanks All! Примеры нашлись в другом пакадже - этого же модуля, но от ЦПАН. Работает, а ну куда она ещё денется? ;)