サンプルコード若しくは解決に至りそうなウェブサイトを教えてください。
CGI(Perl)でコーディングしたプログラムです。
CGIが動作するマシンとPostgreSQLサーバが動くマシンは別々で、TCP/IP接続（LAN）です。
PostgreSQLサーバにDBD::Pgでアクセスし、select文を送ります。
一件ずつ検索を行い、一致したら変数に代入するというものです。
データベースが増大するごとに、先頭行から検索しているため時間がかかっています。
検索スピードを向上させたいのです。
当方の組み込んだコードです。
>>
use DBI;
$db = DBI->connect("DBI:Pg:host=$host;dbname=$dbname", $user, $passwd) || die "DBI connect failed : $DBI::errstr";
#テーブルを開く
$st = $db->prepare("select * from tablename");
$res = $st->execute;
#テーブル処理
while (($aaaaa,$bbbbb)=$st->fetchrow_array){
if ($aaaaa =~ /$query/){
$answer = "$bbbbb";
last;
}
}
<<
お力を貸してください。
ベストアンサー
-
kn1967
満足100pt
一番ネックとなっているのは
（１）全フィールドを取得 → Perl側で絞り込み
という流れにしている点があげられると思いますので
（２）フィールド名を取得 → 必用なフィールドだけを取得
という流れに変えれば
（ａ）perl側でのレコード毎処理ではなくPostgreSQL側での一括処理
（ｂ）２台のコンピュータ間を流れるデータ量を格段に落とす
による高速化が期待できます。
そもそも、Perl側で絞り込んでいるのは
正規表現を使う必要があるためだと思いますが
PostgreSQL側でも正規表現を使った絞込みが可能ですから利用しない手はありませんし、
もしも非常に簡単なものであるならばLIKE演算子が使えるかもしれません。
（下記は例として少し古めのバージョン8.03のマニュアル）
http://www.postgresql.jp/document/pg803doc/html/functions-matchi...
SQL発行は二段階になりますが
まずは、システムカタログから正規表現でフィールド名を取得するSQL
SELECT attname FROM pg_attribute WHERE attnum > 0 AND attrelid = (SELECT relfilenode FROM pg_class WHERE relname = 'テーブル名') AND attname ~ '正規表現' LIMIT 1;システムカタログについては下記参照ください。
http://www.postgresql.jp/document/pg803doc/html/catalog-pg-attri...
次に、上記で取得したフィールド名で情報を元にしてフィールド内の情報を得るSQL
SELECT 上記で得たフィールド名 FROM テーブル名
という流れがよろしいかと思いますがいかがでしょう。
-
cabeliau
-
cabeliauその他の回答
この質問へのコメント
-
Vacuum2008/10/27 00:17:08
インデックスは張っているんですよね？
質問の情報
- 登録日時
- 2008-10-25 11:20:36
- 終了日時
- 2008-10-25 13:23:28
- 回答条件
- 回答にURL必須 1人1回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者