PerlでCSVに保存されている内容を確認したい時、 #!/usr/bin/perl $file = 'xxx.csv'; open(TXT, "+>$file"); print 表\示 $file __PRINT__ exit; こういった感じでブラウザに表示できるかと思いますが、データベースに保存されている内容をブラウザ表示したい時は、どんなソースになりますか？

perlでデータベースに接続したい。

解決済

質問者：TMEspion
質問日時：2007/12/15 09:28
回答数：1件

PerlでCSVに保存されている内容を確認したい時、

#!/usr/bin/perl
$file = 'xxx.csv';
open(TXT, "+>$file");
print << __PRINT__;
content-type:text/html

<html><head><title>表\示</title></head>
<body>$file</body></html>
__PRINT__

exit;

こういった感じでブラウザに表示できるかと思いますが、
データベースに保存されている内容をブラウザ表示したい時は、
どんなソースになりますか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： nyaa519323116
回答日時：2007/12/15 19:14

一般的にはDBIモジュールを使うことになるでしょう。

MySQLだとすると、データベースにまず接続。

$db = DBI->connect("DBI:mysql:$dbname;host=$host", $user, $passwd,{PrintError=>0,RaiseError=>1,AutoCommit=>0}) || die "DBI connect failed : $DBI::errstr";

#データベースにアクセスするためのSQL文を用意し、構文解析させます。
$SQL='SQL文';
$sth=$db->prepare($SQL);

#構文解析の終わったSQL文の「カーソル」をOPENし、データを一行ずつ取り出します。

$sres=$sth->execute(@パラメタ);
print << "__PRINT__";
content-type:text/html

<html><head><title>表\示</title></head>
<body>
__PRINT__

print "<table>\n";
while(my @rec=$sth->fetchrow()) {
#データベースから取り出された内容をHTMLに変形して出力
print "<tr>"
for (@rec){
print "<td>$_</td>\n";
}
print "</tr>";
}
print "</table>\n";
print << "__PRINT__";
content-type:text/html
</html>
</body>
__PRINT__

$sth->finish if ($sth);
$db->commit;

大まかな流れです。