川合孝典です。

----- Original Message ----- 
From: "HORI" <john.smith@xxxxxxxxxx>
To: <ml@xxxxxxxxxx>
Sent: Saturday, April 02, 2005 6:08 PM
Subject: [mysql 11306] Re: turbolinux10のmysql5はありあまか？


> 堀です。
（中略）
> 紛らわしい書き方をしましたがturboLinux10の方はMySQL5.0.2のバイナリー
> も5.0.3のバイナリー、ソース、RPMパッケージとも全ておんなじ現象
> でした。それでカーネルのバージョンの問題かなと思い始めています。
> 私以外にturbo10で動いた、動かないの実績無いでしょうかね？
私の場合、やはり環境よりもあなたのコードのほうを疑いますけども。
普通にSELECTができたと書かれていたと思いますが、
mysql（ユーティリティの）を使って直接ストアド・プロシージャを
書いたらどうなったんでしょうか？それでもFUNCTIONと書いたところで
PROCEDUREにRETURNはないといったエラーメッセージが
出たのでしょうか？

またDBD::mysqlのビルドの問題かもしれません。
#どのクライアントライブラリを使って作ったかということです
私の場合、前のバージョンでビルドしたDBD::mysqlを使っていても
まったく問題はでていませんけど。

私の使っているOSはturblinux10 desktop Basic　ですが、
下記のとおりMySQLバージョンを表示させるように改造したものを
使いましたけど、見たところきちんと動作しているようです。
#堀さんがメールに書いてあったスクリプトもそのまま動かしましたけど
#特に問題がなかったようです（エラーは出てこないし）


[使ったスクリプト]
use strict;
use DBI;
my $hDb = DBI->connect('dbi:mysql:database=test', 'root', '',
             {RaiseError => 1, PrintError=> 0, AutoCommit => 1});
# 先に削除
eval {$hDb->do('DROP PROCEDURE simpleproc');};
eval {$hDb->do('DROP FUNCTION  hello');};
eval {$hDb->do('CREATE TABLE t (name varchar(80))');};
# プロシージャ、ファンクションを作成
eval {
$hDb->do(
'CREATE PROCEDURE simpleproc (OUT param1 INT)
 BEGIN
   SELECT COUNT(*) INTO param1 FROM t;
   SET param1 = param1 + 10;
 END');
$hDb->do(
q{CREATE FUNCTION hello (s VARCHAR(20))
  RETURNS VARCHAR(50)
 BEGIN
  RETURN CONCAT('やぁ', s , '調子どう？');
 END});
};
die $@ if($@);
#0.2 バージョンの確認
my @aVer = $hDb->selectrow_array("SHOW VARIABLES LIKE 'version'");
print join(' : ', @aVer) . "\n";
# 1. simpleprocを実行して戻り値をSELECT
$hDb->do('call simpleproc(@rtnVal)');
my $iVal = $hDb->selectrow_array('SELECT @rtnVal');
print "戻り値:" . $iVal . "\n";

# 2.
my $hSt = $hDb->prepare(q{SELECT hello(?)});
$hSt->execute('堀さん');
while (my $raRes = $hSt->fetchrow_arrayref()) {
  print join(',', @$raRes) . "\n";
}

[実行結果]
version : 5.0.3-beta-standard
戻り値:10
やぁ堀さん調子どう？

===================================================
川合 孝典 (Hippo2000)
   DBI日本語メーリングリスト管理人、Kansai.pm所属
   kwitknr@xxxxxxxxxx GCD00051@xxxxxxxxxx
   http://homepage3.nifty.com/hippo2000/、http://www.hippo2000.info/
perldocの日本語情報ならperldocjp：翻訳してみませんか？
  http://perldocjp.sourceforge.jp/
===================================================