perlとmysqlを連携　〜 select文 〜

perl mysql

　引き続きこのサイトから写経していきます。

　今日はSELECT文を使ってレコードを抜き出す方法についてです。

use strict;
use warnings;

use DBI;

my $user = 'test';
my $passwd = 'test2001';

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

　繰り返し写経して、一応ソラで書ける様になりましたが、明日にはところどころ抜けてるんだろうなあ。