Perlについての質問箱 34箱目

Perlについての質問箱 34箱目 at TECH

475:デフォルトの名無しさん
08/02/17 13:47:20
>>469
insert 以前にさ、select はうまくいくの？
初心者なら、簡単な事からはじめてみよう。

use utf8;
use DBI;
my $db = DBI->connect("DBI:mysql:以下省略・・・
　　$db->do('SET NAMES UTF8');

$id = 1;
my $sql = "SELECT name,address FROM members WHERE id=$id;";
my $sth = $db->prepare($sql);
　$sth->execute or die DBI::errstr;
　$sth->bind_columns(undef, \(my($M_name,$M_address))) or die DBI::errstr;

my $rc = $sth->fetch();
　utf8::decode($M_name);
　utf8::decode($M_address);

insert はこの逆をすればいいだけ。

次ページ

続きを表示

1を表示