Re^4: fetch all data

i tried that earlier, but i think it has been my problem to not diagno
+se the problem. until i have added 
print "Content-type: text/html\n\n" and print to rest to the top of sc
+ript and am getting the results the actual results i want in header. 
+but not in html. in html am just getting only  1 results
[download]

results

35 56 Content-type: text/html # this comes very well but. cant use it 
+on top of script for production use 

Age list

35 # am getting only this in html and i want to get all like in header
[download]

#!/usr/bin/perl -w
print "Content-type: text/html\n\n";

use DBI;

my $host =   "localhost";
my $usr =    "root";
my $pwd =    "";
my $dbname = "test";

my $DBH = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
                                  AutoCommit => 0,
                                  RaiseError => 1, 
                                  }) or die $DBI::errstr;


my $sth = $DBH->prepare('
   SELECT DISTINCT AGE 
   FROM USERS 
   WHERE NAMES = ?');
$sth->execute('John');

my $records = $sth->fetchall_arrayref;

for my $record (@$records){

  print $rest = $record->[0]; 
}

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

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

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

</html>

START_HTML
[download]

Comment on Re^4: fetch all data Select or Download Code

Replies are listed 'Best First'.
Re^5: fetch all data by poj (Abbot) on Mar 17, 2019 at 18:23 UTC
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	[reply] [d/l]
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]


The stupid question is the question not asked
	PerlMonks