色々インストール　ASH Multimedia lab[B!]新着記事・評価 - はてなブックマーク (original) (raw)

Perlで、DBIモジュールを使って、データベースをアクセスするサンプルプログラムです。 データベースは、PostgreSQLを使っています。 カーソルでデータを全件検索する方法 カーソルを使って、SQL文の結果を1件ずつ処理するサンプルです。 #!/usr/local/bin/perl use strict; use DBI; my ($dbh, sth);my(sth); my (sth);my(data_source, username,user_name, username,sql); my ($id, name,name, name,zip, addr,addr, addr,tel); datasource=′dbi:Pg:dbname=addr′;data_source = 'dbi:Pg:dbname=addr'; datasource=′dbi:Pg:dbname=addr′;user_name = 'joe'; dbh=DBI−>connect(dbh = DBI->connect(dbh=DBI−>connect(data_source, username)∣∣dieuser_name) || die username)∣∣diedbh->errstr; $sql = 'select * fro