perl-DBI

perlからMySQLを操作。

今までずっとMySQLとかPostgreSQLとか、データベースから逃げてきたけど、
ウッカリ触ってみたら、意外と簡単でした。

ライブラリ万歳！

use DBI;
#———————-
# DB setting
#———————-
my $db_name = “hogehoge”;
my $mysql_host = “example.com”;
my $mysql_usr = “hoge”;
my $mysql_passwd = “hogehogehoge”;
my $d = “DBI:mysql:”.$db_name.”:”.$mysql_host;

my $dbh = DBI->connect($d, $mysql_usr, $mysql_passwd);
$dbh->do(“set names utf8”);

my $ins_q = “INSERT INTO hoge SET name=\'”.$hoge.”\'”;
my $sth = $dbh->prepare($ins_q);
$sth->execute;
my @rows;
  while(@rows = $sth->fetchrow_array){
    foreach(@rows){
      decode(‘utf8’,$_);
        print “$name[0] : status = $_\n”;
    }
  }
$sth->finish;
$dbh->disconnect;

こんな感じ。

もう少し臆せずに使っていこう。
自前プログラムは、ずっとテキストに保存してきたからねｗ