【活動記録】PerlでMySQLを操作【LAMP】

PerlでDBIモジュールを使ってmySQLを操作できるようになりました！
ワーイワーイ。(^^)

これでやっと、

LAMPデビューです！！

パチパチ
( 注： LAMP ＝ Linux, Apache, mySQL, Perl/PHP )

長く苦しいい道のりだった。くくく・・・

超簡単なアプリを作ったので公開します。
前回と同じタイムスタンプです。
前回は裏の仕組みがPerl+CSVでしたが、今回はリッチにPerl+DBI+mySQLです。
大いなる第一歩です。
ああ感激。

ソースはこれ↓
========== dbi_timestamp.cgi ==============
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

use DBI;

$user = '***';
$passwd = '***';
$dbh = DBI->connect('DBI:mysql:db:localhost', $user, $passwd);

$sth = $dbh->prepare("
INSERT INTO timestamp
VALUES(NULL);
");
$sth->execute;

$sth = $dbh->prepare("
SELECT * FROM timestamp ORDER BY timestamp DESC
");
$sth->execute;
while(@a = $sth->fetchrow_array){
print "$a[0]\n";
}

$sth->finish;
$dbh->disconnect;

print "DBI test is done!\n";
====================================
参考サイト
http://2php.jp/mysql/insert.html
http://www.rfs.jp/sb/sql/index.html