Demo script

gentoo320015a.pl (text/plain), 896 bytes, created by Martin von Gagern on 2010-05-16 17:53:33 UTC

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

binmode(STDOUT, ':utf8');

my $dsn = "DBI:mysql:database=test:mysql_read_default_file=$ENV{HOME}/.my.cnf";
my $dbh = DBI->connect($dsn, "", "", { mysql_enable_utf8 => 1 })
  or die $DBI::errstr;
#$dbh = DBI->connect("dbi:SQLite:dbname=:memory:", "", "",
#                    { sqlite_unicode => 1 }) or die $DBI::errstr;

defined $dbh->do(<<"SQL") or die $dbh->errstr;
CREATE TEMPORARY TABLE foo
(
 id TINYINT AUTO_INCREMENT PRIMARY KEY,
 text VARCHAR(255) NOT NULL
)
SQL

defined $dbh->do("INSERT INTO foo (text) VALUES ('f\x{3bf}o')")
  or die $dbh->errstr;
defined $dbh->do("INSERT INTO foo (text) VALUES ('b\x{430}r and b\x{101}z')")
  or die $dbh->errstr;
my $sth = $dbh->prepare("SELECT text FROM foo ORDER BY id")
  or die $dbh->errstr;
$sth->execute;

my $row;
while ($row = $sth->fetchrow_arrayref) {
  printf "%-20s\n", $row->[0];
}