接続時
my $dbh = DBI->connect(
'DBI:mysql:database=sandbox;host=localhost;mysql_read_default_file=/etc/mysql/my.cnf',
qw/id password/,
);
または接続後に
$dbh->{ mysql_enable_utf8 } = 1;
接続時
my $dbh = DBI->connect(
'DBI:mysql:database=sandbox;host=localhost;mysql_read_default_file=/etc/mysql/my.cnf',
qw/id password/,
);
または接続後に
$dbh->{ mysql_enable_utf8 } = 1;
例えば
sub xxx{
eval{
my $a=1;
if($a){return(0);}
};
}if(&xxx){print"abc";}
else{print"def";}
などとするとうまくいかない。
sub xxx{
eval{
my $a=1;
if($a){die;}
};
if($@){return(0);}
}
などとしよう。