использую следующую програмку она выдирает в таблицу текст из excel файла:
#!/usr/bin/perl
use strict;
use Spreadsheet::ParseExcel;
print "Content-type: text/html\n\n";
my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse('perl.xls');
my($iR, $iC, $oWkS, $oWkC);
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {
$oWkS = $oBook->{Worksheet}[$iSheet];
print "<table border=1 width='100%'>";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
print "<tr>";
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "<td>";
print "", $oWkC->Value, "<br>" if($oWkC); # Formatted Value
print "</td>";
}
print "</tr>";
}
print "</table>";
}
но беда в том что если в excel забиты русские тексты то они не читаются ... помогите плиз поправить код чтобы все заработало и прочитало русский текст!!!