Re^5: fetch all data

Don't print anything before the header. Create the list and then print it in the page

my $records = $sth->fetchall_arrayref;
my $list = join ' ',map{$_->[0]}@$records;

print "Content-type: text/html\n\n";
print <<END_HTML;

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Untitled Document</title>
</head>

<body>
<p>Age list </p>
<p>$list</p>
</body>
</html>

END_HTML
[download]

poj

Comment on Re^5: fetch all data Download Code

Replies are listed 'Best First'.
Re^6: fetch all data by bigup401 (Pilgrim) on Mar 17, 2019 at 20:03 UTC
thanks poj. you saved me from using Template Toolkit module	[reply]
Re^7: fetch all data by davido (Cardinal) on Mar 18, 2019 at 15:02 UTC
Why would sticking to print statements be advantageous over using a templating system? Bare use CGI scripts become hard enough to maintain without mixing all the components of the model, view, and controller together. I think that your comment that our helping to resolve a database issue saved you from having to use Template::Toolkit is indication that your separation of concerns is broken, and could probably be helped by thinking in terms of a separate model, view, and controller architecture. Dave	[reply]
Re^7: fetch all data by marto (Cardinal) on Mar 18, 2019 at 09:21 UTC
Your issue wasn't related to templates in any way.	[reply]