Perl::DBI

**nobodyさん** · 02/03/12 23:35

DBIでも語ろうぜ

DBI.org
http://DBI.perl.org
DBI-ML-J
http://member.nifty.ne.jp/hippo2000/dbi/dbi_japan.htm
DBI.pm 日本語訳
http://member.nifty.ne.jp/hippo2000/perltips/dbimemo.htm

**nobodyさん** · 04/02/01 15:55

>>123
的確な指摘ありがとうございます
バッチリ上手くいきました

**nobodyさん** · 04/02/05 15:37

use DBI;

$DB = "hogedb";
$User = "hogeuser";
$Passwd = "hogepass";

$dbh = DBI->connect("DBI:mysql:$DB:localhost", $User, $Passwd);
$login_id = $dbh->quote($login_id);
$sql = "select Cust_kanji from bb_k where login_id = " . $login_id ;
$sth->prepare($sql);
$sth->execute;

@get_data = $sth->fetchrow_array;
$Cust_kanji = $get_data[0];
$sth->finish;
$dbh->disconnect;

とやってるだけなのに、

Can't call method "prepare" on an undefined value at /u/web/bblabc/cgi-local/friends/intro_popuppreview.cgi line 56.
と怒られてしまいます。

原因として何が考えられるのでしょうか？
いろいろ調べたもののわかりませんでした。

それと不思議なのが、
同じサーバの別のスクリプトで、
DBIでMysqlにつなげて成功している場合があるということです。

どなたか教えていただければ幸いです。

**nobodyさん** · 04/02/05 17:01

>>125

$sth って何が入ってるの？

**125** · 04/02/05 17:27

>>126
$sth->prepare($sql);
じゃなくて、
$sth = $dbh->prepare($sql);
の間違いでした。。。すみません。
まだ、DBI歴２日なもので。。。
ありがとうございます。

**nobodyさん** · 04/02/07 02:17

DBIで掛かった時間て取得できないのでしょうか？
コマンドラインで実行したサイの
「ex：6 rows in set (0.05 sec)」
～secみたいなやつ

**nobodyさん** · 04/02/07 18:29

>>128
かなり昔に使っただけだし若干狙いが違うかもしれないが、DBI配布キットにプロファイラがある。
perldoc DBI::Profile
見てみれ

**nobodyさん** · 04/02/07 20:40

>>129
どうもうです。みてみます。

**118** · 04/02/09 22:00

ちまちまApache::DBIを触ってみてるんですが、
これって同じリモートDBマシン上の複数のDBへの接続を
キャッシュできないんですか？

マニュアルには「接続を定義するパラメータは接続属性も含めて
まったく同じでなければなりません」とあり、実際に

　DBI:Proxy:hostname=192.168.0.1;port=1234;dsn=dbi:Pg:dbname=hoge1
　DBI:Proxy:hostname=192.168.0.1;port=1234;dsn=dbi:Pg:dbname=hoge2

という二つの接続属性による接続を作成しても、二つ目はDBIが
panic: DBI active kids..... てな感じでエラーを吐くようなんですが。

すごくそんな訳無いやん、って気もするんですが、
そういうものなんでしょうか？

**131=118** · 04/02/09 22:14

あ、いや、違いますね。
問題なのはDBI::ProxyかDBDみたい。。。

**Hippo2000** · 04/02/23 00:49

>>131
テストする直接DBD::Pgを利用するように変えてみては？
DBD::Proxy-DBI::ProxyServerをApache::DBIで利用するのは、ちょっと酷な気がします。
（そっちのほうがボトルネックになるでしょう）

**Hippo2000** · 04/02/23 01:01

>>96
DBD::ODBCはUnixでも使えますけど？
MDBToolsのプロジェクトがODBCドライバを出したという話は聞いてますし、
先日、Timさんがこんなメール書いてましたけど反応なかったみたいです。

Accessing Access .mdb databases from unix (was: MS Access)
　http://www.mail-archive.com/dbi-dev@perl.org/msg02755.html

MDBToolsのソースを解析しようと思ってたけどODBCドライバがあるなら
もういいかなと。

**131** · 04/02/23 23:50

>>133

DBD::Proxyを使ってみようと思ったのはDBに接続するアプリケーションサーバが
増えたときに、コネクションの制御が(漠然と)しやすいかなと思ったのと、
接続の取得クラスをSingletonパターンで実装するとコネクションプーリングが
実現できるかもしれないかなと思ったためです。
# Apache::DBIをよく理解してなかったことも有りますが...

結局あまり詳しく追求しませんでしたが、動作が不安定なので
とりあえずは直接接続以外の方法は検討しない事にしました。

**nobodyさん** · 04/03/06 11:22

すません。質問っす。
たとえばゲームのレビューを書くようなホームページを作ろうとして、
それをhtmlのページのフォームから必要な情報(ゲーム名、ゲーム会社とかレビュー内容とか)を書き込んで
それをサーバー側にデータとして蓄積していきます。
そして閲覧者が見る時に、そのゲーム名やゲーム会社名で検索できるようにするには
どのような技術を使えばよいのでしょうか。
ちなみにperlもいまいちですし、データベースの知識はミジンコくらいです><
環境は…パソコンはXPで、サーバーは有料のレンタルです。そこはperl、phpが使えるようです。
なにとぞm(__)m

**nobodyさん** · 04/03/06 12:41

perlかphpを使えばいいじゃん。

**nobodyさん** · 04/03/06 14:19

パンが無いのならお菓子を食べればいいのに

**nobodyさん** · 04/03/06 17:22

なぜこのスレで聞こうと思ったのかそこに興味がある

**nobodyさん** · 04/03/06 18:06

データベースだろうと、勝手に脳内変換して、DBIスレに書き込んじゃったとか。

**nobodyさん** · 04/03/06 23:21

あ、ここ場違いだった？？＞＜
別で聞きます…すません。

**nobodyさん** · 04/03/07 01:25

別で聞いてもｵﾏｲの質問じゃ碌な答えはかえらねぇよ

**nobodyさん** · 04/03/07 02:51

DBIじゃなくて、Pgモジュール使ってるんですが、
Perlで扱うスレで誘導されてるんで、こっちで質問させてください。

Perlから、use PgでPostgre SQLにinsertするのを書いているんですが、
なぜか登録できません。（接続はできています。）

登録するカラムが２６もあるのが原因なのかと悩んでいるんですが、
何か原因考えられませんか？

ちなみに、カラムを３，４個に減らすと登録できるんです。

使ってるデータ型は、text,smallint,bool,dateだけです。

**nobodyさん** · 04/03/07 12:49

登録できない場合にエラーが出てないかをまず確認すること

**143** · 04/03/07 16:36

if ($result->resultStatus !

**143** · 04/03/07 16:41

切れてしまったので、再度

if ($result->resultStatus !＝ PGRES_COMMAND_OK) {

print "$result->resultStatus";

}

を実行したら7と表示されました。（＝は半角）

これは、PGRES_NONFATAL_ERRORということでいいのでしょうか？

**nobodyさん** · 04/03/07 18:28

>>146
ということでよさげだが、PGRES_NONFATAL_ERROR だけでは何が起きてるのかわからんな…
たぶん詳細なメッセージが stderr なりエラーログなりに出てると思うのだが、確認できん?

なんとなくSQL文の長さ制限に引っかかってるんじゃないかという気がするのだが自信は無い

**146** · 04/03/07 21:16

早速のレスありがとうございます。

SQLのstderrはどうしたら見られるのでしょうか…？

トクトクプロフェッショナルでやってるので、telnetは使えるのですが、エラーログとかはルートじゃ無くてもＯＫなのでしょうか？

ＳＱＬ文の流さ制限は８ＫＢ以下でいいですか？これだと８１９２文字には行ってないはずです。

モジュールに渡せる制限とかもあるのでしょうか？

色々書いてしまいましたが、御教授お願いします。

**nobodyさん** · 04/03/07 21:22

$conn->errorMessage

じゃなかった？

最近はＤＢＩ＆ＤＢＤ－Ｐｇばかりだから忘れた

**148** · 04/03/08 04:02

なんか、深夜にやったら動きました。

自分でもなんでって感じなんですが、サーバーの負荷と関係あるんでしょうか？

ちなみに$conn->errorMessageは使えませんでした。

ともかくプログラム自体は合っているようなので、暫く様子見ることにします。ありがとうございました。

**nobodyさん** · 04/03/08 06:53

>トクトクプロフェッショナルでやってるので、
この辺が理由の気がする。

**150** · 04/03/09 05:20

ｔｏｋ２　ｐｒｏが原因ですか…？

確かについ最近まで設定ミスでＲＤＢ使えない設定になってましたし、ずさんなとこが多いのは事実のような。

でも、トラフィックはめちゃめちゃな訳では無いし、安めで色々使えるので気に入ってるのですが、他にオススメのトコありますか？

自鯖立てろは無しで…。

**nobodyさん** · 04/03/10 10:25

errstrは？

**nobodyさん** · 04/03/15 22:17

>>152
XREAとかな。
これ以上はレンタル鯖板に行って探すか、
自鯖板行って勉強するかだな。

**131=135** · 04/03/16 01:14

database connection pooling は　dbi の世界ではある種宗教的な問題でも
あるようで、この辺↓とか読みつつなるほどと思ったり。
ttp://mathforum.org/epigone/modperl/breetalwox/38B4DB3F.612476CE@acm.org

でも、プールしたいという想いを偽る事ができない方も多いかと思ったので参考まで。

ResourcePool by Markus Winand
ttp://search.cpan.org/~mws/
ttp://www.perldesignpatterns.com/?ResourcePool (ref

Apache-Sybase-ConPool by Michael Peppler
ttp://search.cpan.org/~mewp/

SQL-Relay
ttp://sqlrelay.sourceforge.net/

決してプロセス単位の接続永続化との比較ベンチをとる神光臨を待ってる訳じゃないですw

**nobodyさん** · 04/03/31 23:28

mod_auth_dbiのApache2用って無いのかな？

**nobodyさん** · 04/05/02 03:28

DBD::Pｇ使ってますが、executeのあとにfinishしないと
まずかったりしますか？
今書いてるソース、すべてつけていないもので、、、

**nobodyさん** · 04/05/11 22:42

某所でスレ違いと言われこちらに誘導されこちらにも書かせてもらいますが、

MySQLをPerlから操作しようとしました。
そしたらinstall_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC ...
とエラーがでました。
恐らくモジュールが入ってないのかと思いますが
どうすればインストールできるでしょうか。
一応、Msql-Mysql-modules-1.2219と言うのをDLしてきましたが
root権限など持っていないので説明にある方法ではインストールできません。
cgiとおなじフォルダにmysql.pmを置いてやれば動くような気もしますが
取り敢えず/mysql/libの中身をまるごと置いてやっただけでは動きませんでした。

**nobodyさん** · 04/05/11 23:50

DBI落としてきて、make install

**nobodyさん** · 04/05/12 07:05

>>159
root権限を持っていないのでその方法では出来ません。

**nobodyさん** · 04/05/12 09:20

自分のフォルダへインストールしませう

**nobodyさん** · 04/05/12 09:20

s/フォルダ/ディレクトリ/

**nobodyさん** · 04/05/12 12:09

perl Makefile.PL したあと、できた Makefile を手で書き換える

**nobodyさん** · 04/05/12 12:56

http://member.nifty.ne.jp/hippo2000/perltips/module_install.htm

**nobodyさん** · 04/05/12 17:30

DBI mysqlを利用しています。
名前「no」というカラムをauto_incrementで作成してinsertすると
「no」は自動的にインクリメントされていきますがinsertと同時に
今insertしたレコードの「no」を取得する方法はありますでしょうか？
現在は
1,insertする
2,一番最後のレコードの「no」取得する
という方法をしていますがもし1と2の間にinsertされると別の「no」を
取得してしまうことになります。1～2の間でロックを行えば解決しますが
１回のSQL発行でinsertと「no」の値を取得できるようなことは出来るのでしょうか？

**nobodyさん** · 04/05/12 17:49

すみません自己解決しました。
http://dev.mysql.com/doc/mysql/ja/ODBC_and_last_insert_id.html

INSERT INTO GIRLS_DATA (no, name) VALUES(NULL, 'nobodyさん');
SELECT LAST_INSERT_ID();

**158** · 04/05/12 20:10

>>159-164
無事、使う事ができるようになりました。有難うございました。

ところで、インストールしたファイルにNullP.pmと言うファイルが有りましたが
ｶﾞｯしておいたほうが良いですか？

**nobodyさん** · 04/08/05 13:25

日付の加減算などを行う関数はMySQLとPostgreSQLで異なるようですが
DBIを経由すれば問題なく動くのでしょうか？

**nobodyさん** · 04/08/06 00:05

DBI は、プログラマが用意したSQL文をDBMSに投げる部分を共通化しているだけなので、
DBMSの方言に合わせたSQL文を書くのはプログラマの責任

DBIx系だとSQL方言の違いまである程度吸収してくれるモジュールがあるが
日付関数のはさすがに無いかもしれないなあ

**168** · 04/08/09 13:45

>>169
AUTO_INCREMENTで自動付加された値を取り出す場合、
MySQLの場合「LAST_INSERT_ID()」を使いますが、PostgreSQLの場合は
「curval('targetname')」のように行うようです。
いまはプログラムでDBに合わせてsql文を変えています。(Win環境なのでPostgresSQLは使えません・・・)
このあたりも、DBIが吸収してくれますか？

**nobodyさん** · 04/08/09 14:59

SELECT文の実行結果CSV形式のファイルに保存したいのですが
コマンドは用意されていますか？
自分で作るのもそう手間ではないのですが・・・。

**nobodyさん** · 04/08/19 13:37

root権限の無い環境で、DBI/DBDを使いたいのですが、
他の環境でコンパイル済みのものをコピーして
パスを通してやれば問題なく動くのでしょうか？

**nobodyさん** · 04/08/20 00:00

（´-｀）.｡oO(なぜ試さないのだろう・・・)

**nobodyさん** · 04/09/23 13:51:31

age

**nobodyさん** · 04/11/24 21:43:11

webProgじゃあないけど、ここが一番perl DBIの話にふさわしそうなので。
DBI:ODBC バグってるっぽい、ってのは気のせいでつか・・・?!
ActivePerl5.8/MySQL4.1.7の組み合わせで使ってて判明
確信持てないのでわかる香具師教えてくらはいな。
my $dataSource = "DBI:ODBC:test";
$dbh=DBI->connect($dataSource, $userName, $pass) || die "connect die:$!";
$sth = $dbh->prepare($query);
$sth ->execute($param) || die $dbh->errstr;
while (@row = $sth->fetchrow_array){
foreach $temp(@row){
print $temp . "\t";
}
}
ってやった結果が変なのでデバッガで見てみたら、@rowの中身が壊れてた。
テーブルの中身はほかのODBCクライアントで確認、異常なし。
壊れてたのは$queryで指定している3番目のカラムで、DB上ではvarchar(20)。
壊れてたデータは、8桁の数字の後に文字列が付いているというもので、数字だけになってた。
foreach部をdumpだっけ、書き換えてDBD側のエラーが出てきたような記憶がある。
それともActivePerl ppmパッケージのみのバグなんでしょうか・・・？

**nobodyさん** · 04/11/25 03:03:01

mysql使うならdbimysql使えばいんでないの？

**175** · 04/11/25 09:38:47

>176
ああごめんなさい、それで動いてからのカキコです。
けど、同じODBC接続でもCSEはちゃんとデータとって来れてるし、あれっ？と思って。

**175** · 04/11/29 23:58:45

教えて君上げ

**nobodyさん** · 04/12/13 09:37:18

DBD::CSVって最新版ではトランザクションは使えるんだっけ？

**nobodyさん** · 04/12/14 18:00:43

mysqlのバージョンが4.0.22なのですが
TIMEDIFF(expr,expr2)みたいなことをしたい場合どうしたらいいでしょうか。
そうしたい場合はperlで得るepoctimeの値を保存するべき？

**nobodyさん** · 2005/08/17(水) 02:05:25

質問したいのですが、テーブルの中の番号フィールドと名前フィールドをSELECTしてきて、
に番号フィールドのデータ全てを配列@aに格納、名前フィールドのデータを@bに格納するには
どう書いたらよいですか？？

**nobodyさん** · 2005/08/17(水) 02:11:32

age

**nobodyさん** · 2005/08/17(水) 03:32:05

>>181
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rls=GGLG,GGLG:2005-32,GGLG:ja&q=perl+dbi+sql

**nobodyさん** · 2005/08/17(水) 04:51:15

DBIで、posgreにつなぐ法

よろ

**nobodyさん** · 2005/08/17(水) 04:52:55

DBIで、myにつなぐ法

**nobodyさん** · 2005/08/17(水) 07:12:49

>>184
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rls=GGLG,GGLG:2005-32,GGLG:ja&q=perl+dbi+postgresql

**nobodyさん** · 2005/08/20(土) 13:04:16

DBI::pg:

**nobodyさん** · 2005/12/02(金) 09:27:57

DBD::SQLiteがアップデートされたのはいいが、またアトリビュート名がガイドラインにそってないよ。
>$dbh->{unicode} = 1; # fetchしたテキストフィールドのutf8flagがオン
命名のガイドラインに従うなら"sqlite_unicode"だろ。

**nobodyさん** · 2006/02/24(金) 16:36:16

DBI::connect でポスグレに繋いだときに、
わざとホスト名を間違えてエラーを出したのに、
undef が帰って来なくて die されてしまうんですがなぜでしょうか？

#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect( "dbi:Pg:host=aaaaa;port=5432;dbname=hoge", 'user', 'password' );
my $status = ( $dbh eq undef ) ? $DBI::errstr : 'ok';
print qq(content-type:text/html\n\n);
print $status;
exit;

この実行結果が 500 エラー。
connectできなかったら undef がくるのではないのか…

**nobodyさん** · 2006/02/24(金) 17:03:13

>>189
500エラーだけじゃ情報が少なすぎるので、http鯖の
エラーログを見るか、

use CGI::Carp qw(fatalsToBrowser);

を使うか、自前でconnectをevalの中で実行して$@を
表示してみるなどして、どういうエラーが出てるかを
きちんと調べることをお勧めする。

**190** · 2006/02/24(金) 18:17:21

connectでエラーが起きたときに undef が帰ってくることを利用して
エラー処理を行おうと思っているのですが、undef が帰ってこなくて悩んでいます。
ですので、エラーの内容は特に何でもいい感じです。

ちなみにエラーの内容は、ホスト名をわざと間違えて実行しているので、
エラーログにももちろん
DBI connect(...) failed: could not translate host name "aaaaa" to address: Name or service not known
が出ます。
（エラーの内容はユーザ名間違いでもなんでもいいです）

参考にしているサイトやオライリーのPerlDBI本では、
undefを見てエラーチェックする例が書かれていたので…

**191** · 2006/02/24(金) 18:25:23

すいません、190に追記です。

eval , $@ を使えば正しくエラー処理できてますが、
my $dbh = DBI::connect() or mySubRoutine();
のようなことがやりたい感じですが、エラー時でも or以降に行ってくれずdieされてる感じです。

**191** · 2006/02/24(金) 18:26:49

>>192 は、
×190に追記です。
○191に追記です。

間違いでした。
スレ汚しすいません…

**nobodyさん** · 2006/02/24(金) 19:02:59

>>189
option

**191** · 2006/02/24(金) 19:28:07

>>194

どういう意味でしょうか？？
DBI::connect には option 属性がなかったので。

**nobodyさん** · 2006/02/24(金) 20:46:26

DBIC のスレきぼん。

**nobodyさん** · 2006/02/24(金) 22:51:21

少なくとも手元の環境ではconnect失敗でundefが戻ってきて処理は続くので、
環境やバージョンに依存した何かかね? PrintErrorを0にしないと、warningは
でるけど。あるいは書いてないけどどこかでRaiseErrorを有効にしてるとか?

% perl -e 'use DBI; $dbh = DBI->connect("dbi:Pg:host=aaa", "user", "pass",); print "死んでない\n"; print "dbh ", defined $dbh? "= $dbh": "is undef", "\n";'
DBI connect('host=aaa','user',...) failed: could not translate host name "aaa" to address: Name or service not known
at -e line 1
死んでない
dbh is undef

% perl -e 'use DBI; $dbh = DBI->connect("dbi:Pg:host=aaa", "user", "pass", {PrintError=>0}); print "死んでない\n"; print "dbh ", defined $dbh? "= $dbh": "is undef", "\n";'
死んでない
dbh is undef

**nobodyさん** · 2006/02/24(金) 23:27:04

mysql つかっとけ。

**189** · 2006/02/25(土) 21:19:30

>>197

ご指摘ありがとうございます！

RaiseErrorが有効になっていたので、
無効にしてみたらちゃんとキャッチできました…

なにかものすごい勘違いをしていたようです。

RaiseErrorを無効にしないとdieされるから
キャッチできないってオチですね。

大変失礼しました。

**nobodyさん** · 2006/03/31(金) 09:14:29

Class::DBIをつかってOracle9iにつないでいます。
ORA-01000が出るんですが、原因がわかりません。
常に出るわけではなく、なにをきっかけにしているのか
ずーっと悩んでいます。

Class::DBIを使った場合、カーソルが開く（もしくは閉じる）タイミングというのは
いつになるんでしょうか？

なにかヒントのようなものでもよいので
お願いします。

**nobodyさん** · 2006/04/12(水) 16:46:12

windowsでperlからdbi使ってpostgreSQLに接続しようとすると
perl command line iteratorが落ちてしまいます。
そしてMicrosoftへ連絡させられる・・・。
どのあたりに原因がありそうですか？
postgreにアクセスしないperlプログラムはちゃんと動くし、
pgAdminからならちゃんとpostgreSQLは機能します。
CPAN使ってDBIとDBD-Pgをインストールしました。

windowsでこの環境構築できた人居ますか？

**201** · 2006/04/12(水) 17:35:44

×Iterator
○Interpreter

**nobodyさん** · 2006/04/16(日) 14:21:00

>>201

普通に
WindowsXP Pro + ActivePerl 5.6.1 + DBI 1.49 + DBD::Pg 1.21 + PostgreSQL 8.1.3
で動いてますが何か？

ちなみにDBD::Pgはppmで貰ってきたやつ。

**nobodyさん** · 2006/04/16(日) 15:54:09

俺は
Windows2000 + perl 5.8.7 built for cygwin + DBI 1.50 + DBD::Pg 1.43 + PostgreSQL 8.0.7
だな。

**nobodyさん** · 2006/04/17(月) 00:27:48

DBI 1.50にしようと思ったら

Perl versions below 5.6.1 are no longer supported by the DBI.
Perl versions 5.6.x may fail during installation with a complaint
about the use of =head3 in the pod documentation.

と言われてしまった。
そろそろ5.6は捨て時かな。
（他のモジュールでも「5.8以降じゃないからダメ」とインストールさせてもらえないのも結構増えてきた）

**nobodyさん** · 2006/04/20(木) 16:26:10

DBIx::Classの話はここでいい?

ある行をselect ... for updateで行ロックかけつつ更新したいんだけどDBICで
for updateしつつデータを取得する方法がわからなくて困ってます。

どうすりゃいいの?

**206** · 2006/04/26(水) 09:50:57

自己解決しました。

$rs->search_literal('id = ?) FOR UPDATE; --', $id);

search_literalは与えた文字列のまわりを括弧でくるんでくれるので、
FOR UPDATEの部分を外に出すために途中で括弧を閉じ、そのままだと
お尻の括弧が余るのでコメントにして無視させるというかなり強引な
トリックです。

**nobodyさん** · 2006/04/27(木) 20:49:50

DBIの話題でいいのかなぁ？

データベースはSQLite。
よくある検索画面。1000件中の11～20件目が2ページに表示されている。

というようなとき、limitやoffsetで取得行数を減らしてパフォーマンスを
あげることはよく行われていると思う。
だが検索にマッチした行が全部で何件かを知る必要がある。

limitをつけると、制限した行数しか返ってこないから
こういうときSQLを2回発行するしかないんかな？

order by してlimitしたりするとき、内部では何行あるか知っていると思うから、
SQL文にlimitつけてても制限されてない行数をしる方法がないかなぁと期待しているんだけど。

**nobodyさん** · 2006/04/27(木) 21:28:39

>>208
DBIだからこうというよりはSQL一般の話なのでデータベース板の
それっぽい質問スレでで聞いたほうが知ってる人に当たる確率が
高いと思われる。

**nobodyさん** · 2006/04/27(木) 22:25:15

うむ。ここは初心者板だし。

**nobodyさん** · 2006/04/28(金) 07:36:40

>order by してlimitしたりするとき、内部では何行あるか知っていると思うから、
DBの実装によると思う。
逆に言えば、DBごとに行数を返したり返さなかったりすると思うから、その共通I/FであるDBIでは取得できないと思う。
素直にselect count(*)しなされ。

**nobodyさん** · 2006/04/28(金) 07:52:56

実装によっては場合によっても違いそうだしな。
ちょうど都合のいいインデックスがあれば
頭からlimit数分順に拾うだけでいいかもしれない
わけだし。

**nobodyさん** · 2006/04/28(金) 15:07:40

うむ。ここは初心者板だし。

**nobodyさん** · 2006/05/02(火) 20:43:42

時代はDBIx::Class!って事で
DBIxでLimit 4,10みたいなのできないんかねー

**nobodyさん** · 2006/05/03(水) 00:22:54

>>214
pagerのことかな。直接limitしたいんだよというときにはかえってめんどくさいが。
あるいはsearch_literalで >>207 とおなじやりかたでlimitもつけられそう。
(試してはいない)

**nobodyさん** · 2006/05/03(水) 05:32:14

DBIx::Class 系で、set_sql する方法きぼん。
compat とかわけわからなす。

**nobodyさん** · 2006/05/08(月) 20:54:21

スレ違いだったらすみません。DB板から移動してきました。
Perl + Postgresqlのアプリをmysqlに移植しようとしています。
Postgresqlでは複数ステートメントを連結したSQLをDBIで渡して実行できてたのですが、
mysqlでそのまま渡すとSyntax Errorとなってしまいます。
cseというクライアントソフト経由でも同様の症状がありましたが「一括実行」という
Pstgresqlでは使ったことのない操作で複数ステートメントを順に実行できました。
Perlで実行するためには何か特殊な設定などが必要でしょうか。
宜しくお願いします。

**nobodyさん** · 2006/05/10(水) 08:03:47

>>217
移植してやるから、ソースうp汁。

**nobodyさん** · 2006/05/11(木) 17:46:04

DBに登録した画像バイナリを読み出して、Content-typeとContent-length指定で
ブラウザに表示させることはできたんですが…
これ、普通のhtmlと一緒に出す場合はどうするのでしょうか？

**nobodyさん** · 2006/05/11(木) 18:06:33

>>219
httpがわかっていれば出来ない質問だな

**nobodyさん** · 2006/05/11(木) 18:44:21

>220
mhtファイルを自前で生成するとか？（笑）

**nobodyさん** · 2006/05/12(金) 02:10:33

辿る道のりは人それぞれなのね。俺なんてバイナリ型なんて扱ったことないし。
バイナリ出力するスクリプトの横に別のHTMLを作って、<img src="./hoge.cgi">
なんて書いてみよう。

**nobodyさん** · 2006/05/16(火) 12:53:34

DBI+MySQLでLIMITにプレースホルダが使えねぇぇぇ。

$dbh = DBI->connect( $dsn, $user, $password );
$sth = $dbh->prepare( 'SELECT * FROM companion LIMIT 0, 3' );
$sth->execute() ;

はOKだけど、

$i = 0;
$sth = $dbh->prepare( 'SELECT * FROM companion LIMIT ?, 3' );
$sth->execute( $i ) ;

とか、

$i = 0;
$sth = $dbh->prepare( 'SELECT * FROM companion LIMIT $i, 3' );
$sth->execute() ;

だと×。なして？