ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Ivanov Anatol                        2:5020/400     08 Dec 2000  20:27:25
 To : All
 Subject : Помогите разобраться  с Unicode
 -------------------------------------------------------------------------------- 
 

 Помогит е разобраться  с модулем Unicode
 А то выдаюстся какие-то глюки. Пытаюсь пропарсировать Excel файл
 #!C:/Perl/5.6.0/bin/MSWin32-x86/perl.exe
     use strict;
     use Spreadsheet::ParseExcel;
     require Unicode::Map8;
     my $oExcel = new Spreadsheet::ParseExcel;
     my $mystr= Unicode::Map8->new("cp1251") || die;
     my $oBook = $oExcel->Parse('1.xls');
     my($iR, $iC, $oWkS, $oWkC);
 
     my $conv_str;
     my $cur_str;
     print "Content-type:text/html\r\n\r\n";
     print "<H1>Пример работы с Excel</H1>";
     print "<TABLE BORDERCOLOR=black WIDTH=400 BORDER=1>\n";
         $oWkS = $oBook->{Worksheet}[0];
         print "<B>Книга:<I>", $mystr->to8($oWkS->{Name}), "</I></B>\n";
 
         for(my $iR = $oWkS->{MinRow} ;
 
                 defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
 
           print "<TR>\n";
 
             for(my $iC = $oWkS->{MinCol} ;
                             defined $oWkS->{MaxCol} && $iC <=
 
 $oWkS->{MaxCol} ; $iC++) {
 
                 $oWkC = $oWkS->{Cells}[$iR][$iC];
 
                  $_=$oWkC->Value; #записал значение
 
                         $cur_str=$mystr->to_char8($_); #пытаюсь
 перекодировать
                         if ($cur_str eq '') { #если пустота то значит
 предпологаю что текст англ или цифр.
                         $conv_str=$_
    }
    else
    {
              $conv_str=$cur_str;
 
    }
                 print  "<TD>", $conv_str, "\n";
                print "</TD>\n";
             }
           print "</TR>\n\n";
         }
 
 print "</TABLE>\n";
 -=Толик=-
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор