• Publicidad

Crear una estructura array de hash

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Crear una estructura array de hash

Notapor adrian_sla » 2011-07-07 16:35 @733

¡Hola! Estoy tratando de crear una estructura así:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. $VAR1 = [
  2.           {
  3.             'DATE' => bless( {
  4.                                'YEAR' => 2011,
  5.                                'MONTH' => '07',
  6.                                'DAY' => 20
  7.                              }, 'WCTravel::Date' ),
  8.             'RATE_AIP' => '214.00',
  9.             'RATE' => '214.00'
  10.           },
  11.           {
  12.             'DATE' => bless( {
  13.                                'YEAR' => 2011,
  14.                                'MONTH' => '07',
  15.                                'DAY' => 21
  16.                              }, 'WCTravel::Date' ),
  17.             'RATE_AIP' => '214.00',
  18.             'RATE' => '214.00'
  19.           }
  20.         ];
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Pregunté y me dijeron que es un array de 3 posiciones, donde en cada una hay un hash. Pero cuando lo creo y lo imprimo no me sale igual.

Lo estoy creando así:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my @rates;
  2. my $rate_breakdown = {};
  3.  
  4. $rate_breakdown->{DATE} = $date;
  5. $rate_breakdown->{RATE_RIP} = $rate_aip;
  6. $rate_breakdown->{RATE} = $rate;
  7.  
  8. push @rates, $rate_breakdown;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Desde ya, ¡muchas gracias!

¡saludos!
adrian_sla
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2010-12-28 09:35 @441

Publicidad

Re: como creo una estructura de este tipo?

Notapor explorer » 2011-07-07 16:53 @745

Yo lo que veo es un array con dos elementos, siendo cada uno de ellos un hash con tres pares clave/valor, siendo una de ellas un objeto WCTravel::Date, y las otras dos, cadenas de texto.

Y el código lo veo bien...
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use Modern::Perl;               # somos modernos
  3.  
  4. my @rates;
  5.  
  6. my $rate_breakdown = {
  7.     DATE        => 'Fecha',
  8.     RATE_RIP    => 'Rate RIP',
  9.     RATE        => 'Rate',
  10. };
  11.          
  12. push @rates, $rate_breakdown;
  13.  
  14. use Data::Dumper::Simple;
  15. say Dumper(@rates);
  16.  
  17. __END__
  18. @rates = (
  19.            {
  20.              'RATE_RIP' => 'Rate RIP',
  21.              'DATE' => 'Fecha',
  22.              'RATE' => 'Rate'
  23.            }
  24.          );
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 30 invitados

cron