技術資料

error この記事は最終更新日から1年以上が経過しています。

perlでMySQLのテンプレ。

use DBI;
$DB = DBI->connect("DBI:mysql:dbname=dbname;host=localhost","username","password");
$DB->do("set names utf8");

$SQLstat = $DB->prepare("select * from tablename where user_id = ?");
$SQLstat->execute($user_id);
$rows = $SQLstat->rows;
while(@DATA = $SQLstat->fetchrow_array){
	# do something
}
$SQLstat->finish;

$DB->disconnect;