【活動記録】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
カテゴリ: