- ベストアンサー
perlでデータベースに接続したい。
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）
- 専門家の回答
質問者が選んだベストアンサー
一般的には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; 大まかな流れです。
お礼
回答ありがとうございます。 回答していただいて申し訳ないのですが、 結局挫折してしまいました。