Foro - Perl en Español

por **danimera** » 2012-08-03 07:51 @368

Siempre lo he hecho así, pero no descubro por qué no puedo obtener el valor de un array de hash que le paso el Template Toolkit,

Este es mi código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $vars = {
    items => $items,
    total => $self->session->param('total_cesta')
};
 
my $c = $self->tt_process(
    'templates/' . $self->current_language . '/' . $self->cfg('template_name') . '/cart_display.html', $vars );
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Esta mi plantilla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

           <h2>ITEM EN CESTA</h2>
           <table border="0">
           [% FOREACH item = items %]
            <tr>
                      <td>[% item.id %] </td>
                      <td>[% item.price %] </td>
                      <td>[% item.cant %] [% item %] </td>
            </tr>
           [% END %]
 
           </table>
Total en carro: [% total %] 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y este el código generado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

  <h2>ITEM EN CESTA</h2>
           <table border="0">
           
            <tr>
                      <td> </td>
                      <td> </td>
                      <td> HASH(0x35c6390) </td>
            </tr>          
            <tr>
                      <td> </td>
                      <td> </td>
                      <td> HASH(0x35c6300) </td>
            </tr>
           
            <tr>
                      <td> </td>
                      <td> </td>
                      <td> HASH(0x35bbd98) </td>
            </tr>          
            <tr>
                      <td> </td>
                      <td> </td>
                      <td> HASH(0x35bbd08) </td>
            </tr>   
 
           </table>
           Total en carro: 1054
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este es mi dumper $vars:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$VAR1 = {
    'total' => 1054,
    'items' => {
        '4' => { 'name' => 'Bolso 2',           'price' => 1000, 'id'    => '4', 'cant' => 1 },
        '3' => { 'name' => 'ssss',              'id'    => '3',  'price' => 22,  'cant' => 2 },
        '7' => { 'name' => 'Bolso 5028',        'price' => 0,    'id'    => '7', 'cant' => 1 },
        '5' => { 'name' => 'BOLSO PARA HOMBRE', 'price' => 10,   'id'    => '5', 'cant' => 1 }
    }
};
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero en la plantilla no me está colocando los valores de name, ni price, ni id... No sé qué pueda ser...

#!/usr/bin/env perl
use Template;
 
my $vars = {
    items => [
        {
            id    => 'F1',
            cant  => 2,
            price => 10,
        },
        {
            id    => 'F2',
            cant  => 5,
            price => 100,
        },
    ],
    total => 42,
};
 
my $template = Template->new();
 
my $plantilla = <<'EOP';
<h2>ITEM EN CESTA</h2>
<table border="0">
[% FOREACH item = items %]    <tr>
        <td>[% item.id %]</td>
        <td>[% item.price %]</td>
        <td>[% item.cant %]</td>
    </tr>
[% END %]</table>
 
Total en carro: [% total %] 
EOP
 
$template->process(\$plantilla, $vars);
 
__END__
<h2>ITEM EN CESTA</h2>
<table border="0">
    <tr>
        <td>F1</td>
        <td>10</td>
        <td>2</td>
    </tr>
    <tr>
        <td>F2</td>
        <td>100</td>
        <td>5</td>
    </tr>
</table>
 
Total en carro: 42
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Con la estructura de datos que muestras, hay que dar un paso intermedio para acceder a los valores:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use Template;
 
my $vars = {
    'total' => 1054,
    'items' => {
        '4' => { 'name' => 'Bolso 2',           'price' => 1000, 'id'    => '4', 'cant' => 1 },
        '3' => { 'name' => 'ssss',              'id'    => '3',  'price' => 22,  'cant' => 2 },
        '7' => { 'name' => 'Bolso 5028',        'price' => 0,    'id'    => '7', 'cant' => 1 },
        '5' => { 'name' => 'BOLSO PARA HOMBRE', 'price' => 10,   'id'    => '5', 'cant' => 1 }
    }
};
 
my $template = Template->new();
 
my $plantilla = <<'EOP';
<h2>ITEM EN CESTA</h2>
<table border="0">
[% FOREACH item = items %]    <tr>
        <td>[% item.key %]</td>
        <td>[% item.value.price %]</td>
        <td>[% item.value.cant %]</td>
    </tr>
[% END %]</table>
 
Total en carro: [% total %] 
EOP
 
$template->process(\$plantilla, $vars);
 
__END__
<h2>ITEM EN CESTA</h2>
<table border="0">
    <tr>
        <td>3</td>
        <td>22</td>
        <td>2</td>
    </tr>
    <tr>
        <td>4</td>
        <td>1000</td>
        <td>1</td>
    </tr>
    <tr>
        <td>5</td>
        <td>10</td>
        <td>1</td>
    </tr>
    <tr>
        <td>7</td>
        <td>0</td>
        <td>1</td>
    </tr>
</table>
 
Total en carro: 1054
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bueno, esta es una manera de hacerlo, naturalmente.

por **danimera** » 2012-08-03 12:32 @564

Gracias como siempre, explorer.

Lo mejor será entonces modificar ese hash de hash y volver a un array de hash.

Foro - Perl en Español

Template toolkit no imprime hash

Template toolkit no imprime hash

Publicidad

Re: Template toolkit no imprime hash

Re: Template toolkit no imprime hash

¿Quién está conectado?