XSM.JP
└MySQLでPerlの欠点克服
2013-03-05 15:16

今日はちょっと難しいお話
Perlの欠点と言えばやっぱり日本語処理
モジュールでもいくらかは解決するみたいですがMySQLはすごい!
例えばこんな感じ

# データベースへ接続
my $dbh = DBI->connect('DBI:mysql:database_name:host:port','user','password');
# shift_jisでもいいじゃないか
$dbh->do("set names sjis");
my $str = 'あいうえおかきくけこ';
my $sth = $dbh->prepare("SELECT CHAR_LENGTH('$str')");
$sth->execute;
# 文字数取得
my $length = $sth->fetch->[0];
# 実行結果 $length = 10

# 5文字以降省略
if ($length > 5) {
   $sth = $dbh->prepare("SELECT MID('$str',1,5)");# 1〜5文字目を残す場合1,5になる
   $sth->execute;
   $str = $sth->fetch->[0];
}
# 実行結果 $str = あいうえお

なんと絵文字とか記号があっても綺麗サッパリ処理してくれた
うーん…便利

←前次→

コメント一覧

コメントはありません