CGIで生成したランダムな文字列を、ユニークなカラムにINSERTする方法は？

質問

多重アクセスの問題です。
現在は、↓のようにしております。

(1) まず初めに、ランダムな文字列（例えば、「ptB0RzT8jtERPH8z」）を、CGIで生成します。

(2) その「ptB0RzT8jtERPH8z」をユニークなカラムにINSERTするのですが、
　　既に、「ptB0RzT8jtERPH8z」があると、DBエラーになりますので、
　　SELECTして、「ptB0RzT8jtERPH8z」がないかどうかをチェックします。

(3) あれば(1)に戻って、ランダム文字列を再生成、
　　なければ、INSERTします。

しかしこの場合、(2)でSELECTして、(3)でINSERTする間に、
別のユーザーが、「ptB0RzT8jtERPH8z」をINSERTすれば、
(3)で、DBエラーを起こします。

どのようにすれば、解決できるでしょうか？
ちなみに、DBはMySQL5です。

エラったらdieせずに、rollbackすれば？との意見もあるかもしれませんが、
DBIコネクト時に、RaiseErrorをオンにしています。

回答No.1

thatsthat · ベストアンサー

RaiseErrorがonでも、eval{};とif($@){}で例外が拾えますので、
　直接Insertを試してみて、
　一意制約違反になったら、ランダム文字列を作り直し。
　Insertに成功するか、その他の(おそらく致命的な)エラーが
　出るまで繰り返し。
という感じでどうでしょう？

while(1){
　$rstr=ランダム文字列作成
　eval{ $sth->execute($rstr); # insert文実行 };
　if($@){
　　next if($DBI::errstr=~m/(一意制約違反の時のエラー文字列)/);
　　die $@; # 一意制約違反以外のエラーはdie
　}
　last;
}
(MySQL環境が手元にないので、
　m//の箇所、一意性違反の時のエラーメッセージが分かりませんでした。)

お礼

ご回答、ありがとうございます。
身近に詳しい人がいないので、ありがちな処理でいつも悩んでしまいます。

ずばりな回答ありがとうございます。
これなら、eval内の処理も1つだけなので、rollbackしなくても済みますね。

ちなみに、Perl＋DBIの際のevalとif($@)を使用したスタイルは、
http://homepage3.nifty.com/hippo2000/perltips/dbimemo.htm
を見て知っておりましたが、実際の悩みは、evalエラーの際の
if($@)の中身の方でした。

つまり、予期されるエラー（一意制約違反）の時にdieされては困るけど、
予期せぬエラー（例えばSQLの構文エラー）の時に、whileでループされるのも困る。
なので、↓のようにすることで
　next if($DBI::errstr=~m/Duplicate entry '$rstr'/);
　die $@;
回避できるという訳ですね。

ちょっと目から鱗ですが、予期されるエラーかそうでないのかの判断は、
やはり、$DBI::errstr内の文字列のマッチングという原始的な方法しか
ないのでしょうか？

とにかく、この問題は解決しましたので、お礼いたします。

回答No.2

maura

apache であれば　ランダムな文字列を作らなくても
　mod_unique_id モジュールがあります。
これを使用すれば、別のユーザーが同じキーを持つ
判定はいらないかも。

参考URL：

http://apache.rsz.jp/docs-ja/1.3/mod/mod_unique_id.html

お礼

ご回答ありがとうございます。mod_unique_id も試してみます。
これってwindowsでも使えるのですかね？
ありがとうございました。