I don't know why my script works when I declare arrays in my script, but doesn't work when I try to get array data from a database.
Perl
use Template;
my $template = Template->new;
if ( $info ) {
my $select = $DBH->prepare("SELECT FOO, BAR, MOO FROM tble WHERE CONCAT(FOO, ', ', BAR, ', ', MOO) LIKE ?");
$select->execute('%' . $info . '%');
$names = $select->fetchall_arrayref();
foreach $names ( @$names ) {
( $variable1, $variable2, $variable3 ) = @$names;
}
}
my $templ = <<START_HTML;
<!DOCTYPE html">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1
+" />
<title>Untitled Document</title>
</head>
<body>
[% FOREACH name IN list %]
<li>
<div class='inforno'>
<img src='inforno'>
</div>
<div class='inforno'>
<a href='#' class='inforno'>[% name %]</a>
</div>
<span class='inforno'>
<a href='#' class='inforno'>Edit user</a>
</span>
</li>
[% END %]
</body>
</html>
START_HTML
$template->process($templ, { list => @$names })
or die $template->error;
output
ARRAY(0x2030674)
ARRAY(0x2030634)
ARRAY(0x2030618)
When I run I get that error. I want to get the array data from database.
See Question&Answers more detail:os
