论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2004-03-07 20:46 |只看该作者 |倒序浏览

我写了如下一个perl脚本，来生成html页，可是用浏览器访问它时，去没有任何显示，也不报错。请教。

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

use DBI;
$dbh=DBI->;connect("dbi:Oracle:demo", "lb1", "lib8771")
or die "Can't connect: $DBI::errstr\n";

print "<html>;<body>;<h1>;Customer table</h1>;";

$sth=$dbh->;prepare("SELECT firstname, address FROM df1.customer");
$sth->;execute();

print "<table>;\n";
print "<tr>;<th>;Customer Name </th>;<th>;Customer Address</th>;</tr>;\n";
while ( @row = $sth->;fetchrow_array)
{
  print "<tr>;";
  foreach (@row)
  {
print "<td>;$_</td>;";
  }
  print "</tr>;\n"  :cry:  :oops:  :?:
}
print "</table>;\n";

print "</body>;</html>;";

$sth->;finish;

$dbh->;disconnect;

文库|博客

apile

富足长乐

论坛徽章:: 1

2楼 [报告]

发表于 2004-03-08 13:21 |只看该作者

为什麽这个perl脚本生成的HTML没有任何显示

把apache的error_log貼出來..
另外<head>;</head>;那段少了...
发表于: 2004-03-07 20:46 发表主题: 为什麽这个perl脚本生成的HTML没有任何显示

--------------------------------------------------------------------------------

我写了如下一个perl脚本，来生成html页，可是用浏览器访问它时，去没有任何显示，也不报错。请教。

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

use DBI;
$dbh=DBI->;connect("dbi:Oracle:demo", "lb1", "lib8771")
or die "Can't connect: $DBI::errstr\n";

print "<html>;<body>;<h1>;Customer table</h1>;";

$sth=$dbh->;prepare("SELECT firstname, address FROM df1.customer")
or die" $DBI::errstr\n";
$sth->;execute() or die "$DBI::errstr\n";

看起來應該是database根本沒連上...

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

leesbing

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2004-03-10 11:26 |只看该作者

为什麽这个perl脚本生成的HTML没有任何显示

检查apache的error log发现是相关的环境变量$ORACLE_HOME 等等运行时没有传递给perl程序。
请教：
如何才能把这些变量传递给perl呢？
或者是其他办法，让perl运行时，使用这些环境变量

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 为什麽这个perl脚本生成的HTML没有任何显示

为什麽这个perl脚本生成的HTML没有任何显示 [复制链接]

为什麽这个perl脚本生成的HTML没有任何显示

为什麽这个perl脚本生成的HTML没有任何显示