perl（0002）

DBI Memo

ttp://www.atmarkit.co.jp/flinux/rensai/mysql04/mysql04b.html


------------------------------------------------------------------------------------
use DBI;

$user = 'test';
$passwd = 'test0001';
$db = DBI->connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);
$sth = $db->prepare("INSERT INTO list VALUES (1,'1st','memo 1st')");
$sth->execute;
$sth->finish;
$db->disconnect;

------------------------------------------------------------------------------------

------------------------------------------------------------------------------------
use DBI;

$user = 'test';
$passwd = 'test0001';
$db = DBI->connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);
$sth = $db->prepare("SELECT id, name, memo FROM list");
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";
for ($i=0; $i<$num_rows; $i++) {
 @a = $sth->fetchrow_array;
 print "id=$a[0], name=$a[1] memo=$a[2] \n";
}
$sth->finish;
$db->disconnect;

------------------------------------------------------------------------------------