Foro - Perl en Español

$VAR1 = [
  {
    'password' => '666',
    'id' => '14',
    'nombre' => 'moto'
  },
  {
    'password' => '12345',
    'id' => '11',
    'nombre' => 'gato'
  },
  {
    'password' => '985',
    'id' => '10',
    'nombre' => 'loco'
  }
];
$VAR2 = [
  {
    'password' => '123245',
    'id' => '1',
    'nombre' => 'admin'
  },
  {
    'password' => 'xxxxx',
    'id' => '2',
    'nombre' => 'user2'
  },
  {
    'password' => 'zzz',
    'id' => '3',
    'nombre' => 'user3'
  },
  {
    'password' => 'oooo',
    'id' => '4',
    'nombre' => 'user4'
  },
  {
    'password' => 'ewrtr',
    'id' => '5',
    'nombre' => 'user5'
  },
  {
    'password' => '985',
    'id' => '6',
    'nombre' => 'user6'
  },
  {
    'password' => '985',
    'id' => '7',
    'nombre' => 'user6'
  },
  {
    'password' => '985',
    'id' => '8',
    'nombre' => 'user6'
  },
  {
    'password' => '985',
    'id' => '9',
    'nombre' => 'user6'
  },
  {
    'password' => '985',
    'id' => '10',
    'nombre' => 'user6'
  }
];

my $dth = DBI->connect("DBI:CSV:f_dir=db/") or die "Cannot connect: " . $DBI::errstr;

# Ejecutamos un select SQL
my $usuarios = $dth->selectall_arrayref("SELECT * FROM USUARIOS",{ Slice => {} });
my $s = [ { password => '666', id => '14',nombre => 'moto'}, { password => '12345', id => '11',nombre => 'gato'}, { password => '985', id => '10',nombre => 'loco'} ];
# creamos el objeto template
my $template = Template->new();
print "<pre>". Dumper $s,$usuarios;

# definimos variables a reemplazar en la plantilla
# asignamos a una variable algunos datos obtenidos en usuarios por la consulta a la tabla usuarios
$value = $usuarios->[0]{'nombre'};
$value2 = $usuarios->[0]{'password'};


    my $vars = {
        usuario1        => $value,
        password1       => $value2,
        users   => $usuarios,
        people => $s
    };

    # damos el nombre de la plantilla que queremos procesar
    my $input = 'plantilla.html';

    #procesamos
    $template->process($input, $vars) || die $template->error();