[Perl] AYUDA!!!

[Luis Medrano Zaldivar]

De hecho esto es la respuesta a mi problema:

foreach my $record ( @{$responce} ) {
   foreach my $field (keys %$record) {
      printf("%s: %s\n",
         $field,
         $record->{$field},
      );
        my $temp=$record->{$field};
        }
   }
   print("\n");
}



-----Original Message-----
From: Salvador Ortiz Garcia [mailto:sog en msg.com.mx] 
Sent: Monday, October 03, 2005 12:47 PM
To: Luis Medrano Zaldivar
Cc: perl en tlali.iztacala.unam.mx
Subject: RE: [Perl] AYUDA!!!

On Mon, 2005-10-03 at 10:50 -0700, Luis Medrano Zaldivar wrote:
> Pues ya le lei pero esa es mi bronca que no hay como extraer esto:
> 
> $VAR1 = [
>           {
>             'lastPublished' => bless( do{\(my $o = '19691231T16:00:00')},
> 'Frontier::RPC2::DateTime::ISO8601' ),
>             'url' => 'http://myblog.blogspot.com',
>             'blogName' => 'my blog',
>             'blogid' => '1010101010',
>             'isAdmin' => bless( do{\(my $o = '1')},
> 'Frontier::RPC2::Boolean' ),
>             'showTitle' => bless( do{\(my $o = '1')},
> 'Frontier::RPC2::Boolean' )
>           }
>         ];

Pues no has leído bien, pues si así fuera sabrías que 

$responce->[0]{blogName} es 'my blog'   ;-)


Saludos.
-- 
Salvador Ortiz Garcia <sog en msg.com.mx>
Matías Software Group