堀です。
川合孝典 wrote:

>川合孝典です。
>
>メッセージにあるとおりなのでは？
>
>  
>
川合さんこの前はどうもありがとう御座いました。
今回のこのエラーはこの前教えてもらったスクリプトを
そのまま使ってます。多分スクリプト上は問題ないとおもいます。
debianのMySQL5.0.2では動きますがturbolinux10のMySQL5.0.3
では下の様なエラーになってしまいます。
カーネルの事はあまり詳しく無いのですが、Linux2.4とLinux2.6の
違いの為にこの現象に遭遇しちゃったのかな？とか思っています。
2.4と2.6じゃ同じbinaryは使えないんですよね？

>  
>
>>[hori@localhost hori]$ ./sp.pl 　　<- turbolinux10　１回目
>>DBD::mysql::db do failed: RETURN is only allowed in a FUNCTION at
>>./sp.pl line 27.
>>    
>>
>RETURNはFUNCTIONでしか許されていません。
>#PROCEDUREでRETURNを書いているとか
>
>  
>
>>[hori@localhost hori]$ ./sp.pl 　　<- turbolinux10　２回目
>>DBD::mysql::db do failed: PROCEDURE simpleproc already exists at ./sp.pl
>>line 11.
>>    
>>
>PROCEDURE simpleprocは既にあります。
>
>っていうことで、MySQL自体が問題というわけではないでしょう。
>  
>
教えて頂いたほぼそのままですがスクリプトを張り付けときます。

#!/usr/bin/perl
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 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($@);

# 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";
}