[Perl]MySQL 操作

インストール DBD-myslq は uwinnipeg.ca にあるので、repository に登録していない場合は登録してからインストールを行う

ppm> install DBI
ppm> install DBD-mysql

データ抽出

use strict;
use DBI;
my $user = 'username';
my $password = 'your password';

# Database server に接続
my $dsn = "DBI:mysql:database_name:localhost";
my $db = DBI->connect($dsn, $user, $password);

# データ抽出
my $i, my $num_rows, my $sth;
my $query = "SELECT * FROM table_name";
$sth = $db->prepare($query);
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";

# array で表示する場合
for ($i = 0; $i < $num_rows; $i++) {
  my @a = $sth->fetchrow_array;
  print "id=$a[0] user_id=$a[1] date=$a[2]\n";
}
$sth->finish;

# hash で表示する場合
$sth = $db->prepare($query);
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";

# array で表示する場合
for ($i = 0; $i < $num_rows; $i++) {
  my $b = $sth->fetchrow_hashref;
  print "id=$b->{id} user_id=$b->{user_id} date=$b->{date}\n";
}
$sth->finish;

# Database server から切断
$db->disconnect;