《Perl DBI 入門》下達 SQL

現在開始可以對我們的資料庫做一些有意義的事了. 下達至資料庫的 SQL 鈙述分成兩類. 一是查詢指令，預期會有數筆資料傳回，例如 SELECT，這一類的指令我們會使用 prepare 方法. 另一類的指令，如 CREATE 和 DELETE，我們會使用 do 方法. 我們先看看後者如何使用.

這一段程式示範在資料庫中建立一個員工資料表格的方法.

use strict;
use DBI;

my $dbh = DBI->connect( 'dbiBMaker:dbsample',
                        'jerry',
                        'jerrypassword',
                        {
                          RaiseError => 1,
                          AutoCommit => 0
                        }
                      )
          || die "Database connection not made: $DBI::errstr";

my $sql = qq{ CREATE TABLE employees ( id INTEGER NOT NULL,
                                       name VARCHAR(128),
                                       title VARCHAR(128),
                                       phone CHAR(10)
                                     ) };
$dbh->do( $sql );
$dbh->commit();
$dbh->disconnect();