Res: Res: Res: Res: Parsing of undecoded UTF-8 will give garbage when decoding entities

[Bianca Shibuya]

Thank you all!

Part of my code is:

sub get_opendate {
   my $URL = shift;
   my $page = get($URL);

   $te = HTML::TableExtract->new(); 
   $te->parse($page); # parse() returns an arrayref containing each table 
encountered
   
   $cont_table = 0;
   foreach $ts ($te->tables) {   
      if ($cont_table == 4) {       ## Submission date is stored in the table 4
          $cont_row = 0;
          foreach $row ($ts->rows) {      
             if ($cont_row == 0) {
              if(!defined @$row[1]) {
                    $date = '';}
                 else {
                    $date = decode_utf8($row->[1]); }
                 last;
             }
             $cont_row++;
          }
      }
      ## If the bug report has received votes (it changes the HTML structure) 
than the submission date is stored in Table 5 Row 0
      if (($cont_table == 5) && ($date eq '')) {     
          $cont_row = 0;
          foreach $row ($ts->rows) {      
             if ($cont_row == 0) {
                 $test = decode_utf8($row->[1]);     #### As $date does not 
accept the value of @$row[1] directly, I had to use a different variable
                 $date = $test;
                 last;
             }
             $cont_row++;
          }
      }  
      $cont_table++;
   } ## Closing the first foreach
   
   print "$date\n";
   
   $year = substr($date, -4);
   $month = substr($date, 12, 3);
   $day = substr($date, 16, 2);

   return $year, $month, $day;
}

How can I change it to make the warning disappear?

Thank you all in advance.

Bianca
----- Mensagem original ----
De: Chas. Owens <[EMAIL PROTECTED]>
Para: Bianca Shibuya <[EMAIL PROTECTED]>
Cc: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>; "macosx@perl.org" <macosx@perl.org>
Enviadas: Domingo, 28 de Setembro de 2008 2:19:14
Assunto: Re: Res: Res: Res: Parsing of undecoded UTF-8 will give garbage when   
  decoding     entities


On Sep 27, 2008, at 10:00, Bianca Shibuya <[EMAIL PROTECTED]> wrote:

> Thank you for your help.
> But the content of @$row[7] is a string (I have printed out it). If  
> it is not a string, I cannot identify other variable to apply this  
> function. =( Because the rest of the program is a sequence of ifs  
> similar to the last if.
>
> Thanks in advance.
> Bianca

>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>>
If you said

print @$row[7];

Then that is equivalent to

print join $,, @$row[7];

To really see the value of that expression you need to say

print map { "[$_] " } @$row[7];

This will print the individual items in the list surrounded by brackets.


      Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua 
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses