Есть мускулевская база, в ней записи на русском в cp1251.
Есть скрипт:
#!/usr/bin/perl
$| = 1;
use lib "/home/unumber/perl/lib/perl5/site_perl/5.8.6/";
use strict;
use Spreadsheet::WriteExcel;
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use encoding 'cp1251', STDIN=>'cp1251', STDOUT=>'cp1251';
# Set the filename and send the content type
my $filename ="price.xls";
print "Content-type: application/vnd.ms-excel\n";
# The Content-Disposition will generate a prompt to save the file. If you want
# to stream the file to the browser, comment out the following line.
print "Content-Disposition: attachment; filename=$filename\n";
print "\n";
# Create a new workbook and add a worksheet. The special Perl filehandle - will
# redirect the output to STDOUT
#
my $workbook = Spreadsheet::WriteExcel->new("-");
my $worksheet = $workbook->add_worksheet();
# Set the column width for column 1
$worksheet->set_column(0, 0, 40);
# Create a format
my $format = $workbook->add_format();
$format->set_bold();
$format->set_size(15);
$format->set_color('red');
#print "Content-Type: text/html\n\n";
my $dbh=DBI->connect('DBI:mysql:server','uname','passwd');
my $SQL="SELECT * FROM price ORDER BY parent, name DESC";
my $sth=$dbh->prepare($SQL);
$sth->execute();
my $row=0;
while (my ($id, $parent, $name, $text, $price, $foto) = $sth->fetchrow_array())
{
my $test = "Строка по-русски";
$worksheet->write($row, 0, $price, $format);
$row = $row +1;
}
Скрипт отдает экселевский файл, но кодировка неправильная.
При этом если в строке
"$worksheet->write($row, 0, $price, $format);"
$price заменить на $test, то все получается шоколадно.
Дяденьки, поможите кто-нить...
