DBI

接続

use DBI;

$db  = DBI -> connect('DBI:mysql:server_name','user_name','passwd') || die "$!";
eval{
  $sth = $db -> prepare(命令文);
  $sth -> execute;
  $sth -> finish;
  $db  -> disconnect;
};
if($@){
  $db  -> rollback;
  $db  -> disconnect;
}

取り出したとき

# select * from table where id = 1
# という命令のとき（重複を省きたいときはselect distinct)
$sth -> rows;            # 行数
$sth -> fetchrow_array;  # 配列にして取り出す

配列にして取り出したものの各々の行をとる

# @rowには一行分のデータが入る
while(my @row = $sth->fetchrow_array){
   # 処理
}