Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

CGI Perl : while loop in CGI perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting CGI Perl : while loop in CGI perl
# 1  
Old 06-10-2013
CGI Perl : while loop in CGI perl
Hi Team,

I am trying to connect to database(succeeded ) and print the records on the browser using while loop. But the elements of array are not displayed instead while loop is displayed directly. Instead of the below I can embed html statements in print but I am looking for the below style as I need to include javascripts and jqueries too.

Could anyone please let me know how to modify the below script(in html tags only) to print the contents of the array.

Code:
#!C:\Dwimperl\perl\bin\perl.exe

# Display script errors.
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBI qw(:sql_types);
# Display script errors.
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;   
$q=new CGI;

 
 ############  database connectiivty ####################
my ($databaseName, $databaseUser, $databasePw, $dbh);
my ($stmt, $th, @newRow);
$databaseName = "dbi:mysql:tcs";
$databaseUser = "root";
$databasePw = "root123";

# Connect to the database
# Note this connection can be used to 
# execute more than one statement
# on any number of tables in the database

$dbh = DBI->connect($databaseName, $databaseUser, $databasePw) || die "Connect failed: $DBI::errstr\n";
 
$i=0;
 
$row=();
$sql = "select p_hostname,p_startdate,p_stime from bt_report where p_recovered='-'";

$query2 = "select count(*) from bt_report where p_recovered='-'" ;

$sth = $dbh->prepare($sql)  or die "Cannot prepare: " . $dbh->errstr(  );

$sth2 = $dbh->prepare($query2);
$sth2->execute();
$sth->execute(  ) or die "Cannot execute: " . $sth->errstr(  );

$rowcount= $sth2->fetchrow_array();
 
@final_data=();
while (@row = $sth->fetchrow_array(  )) {
$output= join(",", @row);
push(@final_data,$output);
}

$sth->finish(  );

# Begin the page.
   print "Content-type: text/html\n\n";
   print qq~<!doctype html>
<head>
<title>Network Availability Report</title>
while ( $i < $rowcount )
{
   print $final_data[$i];

}


</body>
</html>
~;

# 2  
Old 06-11-2013
Check out this info:CGI Perl script is printing the HTML (along with 'content-type: text/html') string to the browser rather than rendering it. How to fix? - Stack Overflow
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. OS X (Apple)

Perl CGI

I am trying to get my MacBook Pro with 10.8 Mt Lion set up to run Perl CGI scripts. Having a problem. I can start Apache Web Server with no problems. Why do I put the static and dynamic scripts? I which directory? I have looked at this article:... (3 Replies)
Discussion started by: djehresmann
3 Replies

2. Shell Programming and Scripting

Perl CGI : unable to download the excel sheet from perl cgi page

Hi All, I have written an cgi perl script that displays an image(Excel image) and when clicked on that Image I need to download a excel sheet. I made sure that excel sheet exists in the folder with the given name but still I am not able to download the sheet. print "<center><table... (2 Replies)
Discussion started by: scriptscript
2 Replies

3. Shell Programming and Scripting

Perl cgi pages out of cgi-bin folder in WINDOWS

Hi team, I have a typical problem with cgi pages in apache webserver in WINDOWS I am able to execute(display) the pages that are saved in cgi-bin folder. But I am not able to execute the pages stored in htdocs or other folder other than cgi-bin folder. Could anyone please let me know how... (1 Reply)
Discussion started by: scriptscript
1 Replies

4. Shell Programming and Scripting

CGI in Perl

Hi, Am unfamiliar with using CGI modules in Perl. Though i checked in few sites about CGI , i dint get a clear idea. Can anyone please explain me the purpose of these statements, it ll be very helpful to me #!/usr/bin/perl use CGI qw/:standard/; use Storable; use Data::Dumper; my... (1 Reply)
Discussion started by: irudayaraj
1 Replies

5. Web Development

problem with exporting vairable from one perl cgi to another perl cgi script while redirecting.

Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect. Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is redirected to welcome page. My... (3 Replies)
Discussion started by: Arun_Linux
3 Replies

6. Shell Programming and Scripting

CGI , Perl and Trees

I have been trying to get this for weeks now but maybe someone knows or has a snippet of code to display a collapsible tree view. something like this: +Yahoo! -/site.html -/site2.html +Google -/site.php -/site2.php (1 Reply)
Discussion started by: Dabheeruz
1 Replies

7. Shell Programming and Scripting

perl+CGI+mysql !!!!!!!

hi expert, I am totally new to perl CGI coding. And stop by below issue: 1> i have a script names conn.pl, which can connect to mysql and get the information of table user(id,name) 2> i copied above code into one CGI web page named user.cgi 3> when i view user.cgi in web browser, it toldme... (3 Replies)
Discussion started by: summer_cherry
3 Replies

8. Shell Programming and Scripting

checkbox_group => CGI, Perl

Hi, In my cgi script(written in Perl using cgi.pm) i have a checkbox and i want all the items to be checked. Here is what i use: checkbox_group(-name=>'studenten_in_groep', -values=>\@member_keys, -defaults=>\@member_keys, -labels=>\%temp_members, -columns=>2), But no boxes are checked...... (18 Replies)
Discussion started by: tine
18 Replies

9. UNIX for Dummies Questions & Answers

Apache Perl/CGI

Can any body help me with apache and cgi i'dont know how iconfigure apache to use cgi... and when i try to start apachectl it says there is no file... please help me...i have apache installed... (1 Reply)
Discussion started by: CreamHarry
1 Replies

10. Shell Programming and Scripting

Perl CGI.pm

my box is FreeBSD4.3 and I use Perl 5.0005_03. Here is the CGI script. test.cgi ...... if ($query->action eq 'detail') { ...... print $query->hidden('action', 'modify'); ...... } I found that the result of test.cgi?action=detail is not what I expected. the script does not... (4 Replies)
Discussion started by: tonyt
4 Replies
Login or Register to Ask a Question