Perlでデータベース接続、SQL実行

データベース処理の流れ

#データベース設定
$user = 'ユーザ名';
$passwd = 'パスワード';
$db_server = 'DBI:mysql:サーバ名:localhost';

#データベース接続ライブラリ
use DBI;

#データベース接続
$db = DBI->connect($db_server, $user, $passwd);
$db->do("SET NAMES utf8");

#値を取得
$date = $db->selectrow_array("SELECT Date FROM Table WHERE ID=$ID;");

#データベース切断
$db->disconnect;

UPDATEの実行

#SQL文の準備
$update_sql = <<UPDATE_SQL;
UPDATE
    TABLE
SET
    F1=?,
    F2=?,
    F3=?
WHERE
    ID=?
UPDATE_SQL

#UPDATE の処理
$sth = $db->prepare( $update_sql );

#変数に置き換えて実行
$sth->execute($in{"F1_$cnt"}, $in{"F2_$cnt"}, $in{"F3_$cnt"}, $in{$ID});