わからないことがあります。
コードの一部を次に示します。
use warnings;
use strict;
my $db_name = 'xxx';
my $user = 'xxx';
my $pw = 'xxx';
use DBI;
my $dbh = DBI->connect("DBI:mysql:$db_name", $user, $pw)
|| die "Could not connect to database: $DBI::errstr";
$dbh -> do('drop table umlaute;');
$dbh -> do(
"create table umlaute (
txt varchar(3) primary key -- will not work if primary key enabled
)") || die "could not create table";
$dbh -> begin_work;
my $sth = $dbh -> prepare ("insert into umlaute values (?)") or die "prepare failed";
for my $a ( 'a' .. 'z' , 'ä', 'ö', 'ü') {
for my $b ( 'a' .. 'z' , 'ä', 'ö', 'ü') {
for my $c ( 'a' .. 'z' , 'ä', 'ö', 'ü') {
$sth -> execute ("$a$b$c") or die "could not insert $a$b$c";
}}}
$dbh->commit;
# check count
my $cnt = $dbh -> selectrow_arrayref("select count(*) from umlaute")->[0];
if ($cnt != 29*29*29) {
print "$cnt != 29*29*29\n";
}
else {
print "$cnt\n";
}
$dbh -> do('drop table performance_insert;');
テーブルumlauteに主キーがない場合、私が思うように機能します。それでも、主キーを「有効」にすると失敗します。興味深いことに、このスクリプトはäとöを挿入できますが、 üは挿入できません。
これが機能しない理由についてのヒントをいただければ幸いです。おそらく私には見えないものなので、4 つの目は 2 つ以上のものを見ています。