DBI

 

DBI幾乎是現在寫程式必備的模組之一了，當然他本身也已經是一種標準。因此了解DBI的使用方式顯然是一個重要的課題。

     my $dbh = DBI->connect(               # 連結資料庫
       "DBI:mysqlatabase=test;host=localhost",
       "Melody", "Nelson", {'RaiseError' => 1}
     );
     eval { $dbh->do("DROP TABLE foo") };     # 卸除資料庫
     # 建立資料庫
     $dbh->do("CREATE TABLE foo (id INTEGER, name VARCHAR(20))");
     # 插入資料列（用 quote 進行引括）
     $dbh->do("INSERT INTO foo VALUES (1, " . $dbh->quote("Tim") . ")");
     # 插入資料列（用 ? 進行引括）
     $dbh->do("INSERT INTO foo VALUES (?, ?)", undef, 2, "Jochen");
     my $sth = $dbh->prepare("SELECT * FROM foo");     # 準備選取資料列
     $sth->execute;                         # 執行選取
     while (my $ref = $sth->fetchrow_hashref()) {     # 選取成雜湊
       print "Found a row: id = $ref->{'id'}, name = $ref->{'name'}\n";
     }
     $sth->finish;                         # 結束查詢
     $dbh->disconnect;                    # 結束資料庫連線