MySQL perl - kozy.heteml.jp

簡単なサンプル † #!/usr/bin/perl use strict; use warnings; use DBI; my $db = DBI->connect('DBI:mysql:testDB:localhost','user','passwd'); my $sth = $db->prepare("select * from testTable"); $sth->execute; my $num_rows = $sth->rows; print "rows::$num_rows\n"; for(my $i=0;$i<$num_rows;$i++){ my @a = $sth->fetchrow_array; print "$a[0], $a[1], $a[2]\n"; } $sth->finish; $db->disconnect; ↑ prepared statement † #