DBIとViewメモ

# 単一テーブルから試験的に作成
CREATE VIEW TEST_VIEW (MEMBERID,PASSWORD) AS SELECT M.MEMBERID , M.
PASSWORD FROM MEMBER M ORDER BY M.MEMBERID;

# 確認後、削除
DROP VIEW TEST_VIEW;

#DB接続テスト
use strict;
use warnings;
use DBI;

my $dbh = &DB_Connect();
my $sql = "select memberid,password from TEST_VIEW ";
my $sth = $dbh->prepare($sql);
　　$sth->execute;
my $rt = $sth->fetchall_arrayref();
foreach(@$rt){
　　print "$$_[0],$$_[1] ";
}

$dbh->disconnect;

sub DB_Connect{
　　my $dbh = DBI->connect("dbi:Oracle:service_name",’user_id’,’password’);
　　return $dbh;
}