Re^5: fetch all data


XP is just a number
	PerlMonks

Re^5: fetch all data

by poj (Abbot)

on Mar 17, 2019 at 18:23 UTC ( [id://1231372]=note: print w/replies, xml )

Need Help??

in reply to Re^4: fetch all data
in thread 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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1231372]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others perusing the Monastery: (5)

As of 2024-04-19 07:34 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found