Perl/MySQLに格納されたブログデータを表示
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[Perl]]
http://nlp.kimura-s.otaru-uc.ac.jp/Perl/KeywordOtaruBlog.cgi
#!/usr/bin/perl
#DBI モジュールの読み込み
use DBI;
# データソースの指定
$dsn = 'DBI:mysql:データベース名:www:3306';
# データソース
$dsn = 'DBI:mysql:データベース名';
# ユーザ名
$user = '*****';
# パスワード
$password = '*****';
# データベースへ接続
$dbh = DBI->connect($dsn, $user, $password,
{ RaiseError => 1, AutoCommit => 0 });
# prepareが成功した場合、ステートメントハンドルが返されます
my $sth = $dbh->prepare(
"SELECT * FROM テーブル名 LIMIT 0 , 100"
);
# SQL文の実行
$sth->execute;
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<body>
<ol>
EOF
# データの取得と出力
while(@row = $sth->fetchrow_array) {
#print "@row\n";
print "<li>$row[2]</li><ul>\n";
for($i=0;$i<@row;$i++){
print "<li>$row[$i]</li>\n";
}
print "</ul>";
}
print <<EOF;
</ol>
</body>
</html>
EOF
終了行:
[[Perl]]
http://nlp.kimura-s.otaru-uc.ac.jp/Perl/KeywordOtaruBlog.cgi
#!/usr/bin/perl
#DBI モジュールの読み込み
use DBI;
# データソースの指定
$dsn = 'DBI:mysql:データベース名:www:3306';
# データソース
$dsn = 'DBI:mysql:データベース名';
# ユーザ名
$user = '*****';
# パスワード
$password = '*****';
# データベースへ接続
$dbh = DBI->connect($dsn, $user, $password,
{ RaiseError => 1, AutoCommit => 0 });
# prepareが成功した場合、ステートメントハンドルが返されます
my $sth = $dbh->prepare(
"SELECT * FROM テーブル名 LIMIT 0 , 100"
);
# SQL文の実行
$sth->execute;
print "Content-type: text/html\n\n";
print <<EOF;
<html>
<body>
<ol>
EOF
# データの取得と出力
while(@row = $sth->fetchrow_array) {
#print "@row\n";
print "<li>$row[2]</li><ul>\n";
for($i=0;$i<@row;$i++){
print "<li>$row[$i]</li>\n";
}
print "</ul>";
}
print <<EOF;
</ol>
</body>
</html>
EOF
ページ名: