Perl::DBI

1nobodyさん02/03/12 23:35ID:xHkBB9i/

274nobodyさん2006/08/28(月) 23:21:10ID:???
>>272

CDBIを使用されて(×)
DBICを使用されて(○)

・・・間違えました

275nobodyさん2006/08/29(火) 00:25:18ID:???
リレーションの設定はモデルでやれってば。
コントローラでやる理由は?

276nobodyさん2006/08/29(火) 01:34:48ID:???
>>275
レスありがとうございます。

コントローラに記述する理由ですが、今後テーブルの個数が大きく増減する可能性があり、
モデルを全削除して、再度CatalystのヘルパースクリプトでDBの構造から
モデルファイルを自動作成するかもしれないからです。
ヘルパースクリプトを使わず、変更の度に対応するCatalystのモデルファイルを
手動で追加・削除したりしても良いのですが、どうしてもミスがありますので・・・

こちらは希望ですので、モデルに書くしか実現できないようでしたら諦めたいと思います。
ただ、モデルに書いた場合でも片方のテーブルが主キー以外のカラムと連結できず、
ハマり状態から抜けられずにいます。

モデルにリレーションを書く方法も平行して試行錯誤してみます。

277nobodyさん2006/08/29(火) 02:11:16ID:????BRZ(1020)
あっちにも書いたし、もしかしたら引用ミスかもしれないけど
こうじゃなくて

my $records = $table->search(
{belong_dno => $dno},
{order_by => 'order_no'},
{prefetch => ['illust_bind']}
);

こうじゃないのかな

my $records = $table->search(
 {
  belong_dno => $dno
 },
 {
  order_by => 'order_no',
  prefetch => [ 'illust_bind' ]
 }
);

2chは半角スペースが詰められちゃうから
書き込むときは全角でインデントするといいよ

278nobodyさん2006/08/29(火) 04:13:08ID:???
>>276
それなら DBIC::Schema 使えばいいんじゃないかな。

279nobodyさん2006/08/29(火) 09:36:54ID:???
>>276

package MySchemaClass;
use base qw/DBIx::Class/;
# 自動生成


package MyController;
use MySchemaClass;
MySchemaClass->belongs_to(...);

280nobodyさん2006/08/29(火) 15:58:11ID:???
>>277 >>278 >>279
レスを頂きましてありがとうございます。

>>277
ご教授ありがとうございました。
prefetchはorder_byと同じ第2引数に記述するのですね。
今まで第3引数として書いても動作していたのは、
DBICの方で良きに計らってくれたのかもしれません・・・
ただちに直させて頂きました。
インデントの件も御指摘ありがとうございます。
以後気をつけて書き込みさせて頂きます。

281nobodyさん2006/08/29(火) 15:59:24ID:???
>>278 >>279
なるほど、DBIC::Schemaを使用すれば、問題とならないのですね。

Catalystを使う上でもDBIC::Schemaが推奨させているようですので、
私もこちらを非常に使いたいのですが、未熟なため、
DBIC::Schemaを使用してCatalystのヘルパースクリプトを立ち上げられずにいます。

こちらのサイトを参考にして試してみたのですが
http://en.yummy.stripper.jp/?eid=362958

>script\lc_create.pl model DBIC DBIC::Schema Lc::Schema create=static DBI:Pg:mydb user pass
とプロンプトからヘルパースクリプトを起動させると

>Can't locate object method "use" via package "DBIx::Class::Schema::Loader" (perhaps you forgot to load "D
BIx::Class::Schema::Loader"?)

『もしかしてDBIx::Class::Schema::Loaderをロードし忘れているんじゃないか?』と指摘されてしまいました。
該当場所まで言って、useでロードして見るものの、

>Can't locate object method "use" via package "DBIx::Class::Schema::Loader"
うしろの( )指摘がなくなっただけでして、現在はこちらで立ち止まっている状態です。

推奨されるDBIC::Schemaには切り替えたいですので、今から引き続き挑戦して参ります。
(何か大ポカをやらかしていそうな気がします・・・)

282nobodyさん2006/08/29(火) 16:02:25ID:???

非常につまらないことが原因で本当に申し訳ないのですが・・・orz
>>268の件、ようやく望む通りの動きをするコーティングができました。

my $table = $c->model('DBIC::TblDiary');
$table->belongs_to(illust_bind => 'Test::Model::DBIC::TblIllust', 'have_illustno');
my $records = $table->search(
 {
  belong_dno => $dno
 },
 {
  order_by => 'order_no',
  prefetch => ['illust_bind']
 }
);

「belongs_to」にて最後に繋げたい、主キーではないカラム名を指示するだけだったようです。

お見苦しい質問をいたしまして、本当に申し訳ございませんでした。
レスを頂いた皆様に、心より御礼申し上げます。

283nobodyさん2006/08/29(火) 19:52:13ID:???
おっさんさ、いいかげんにしたほうがいいとおもうよ。

284nobodyさん2006/08/29(火) 20:56:33ID:???
オマエもな

クダらん煽りいれるな

285nobodyさん2006/08/30(水) 06:13:24ID:???

286nobodyさん2006/08/30(水) 10:04:31ID:???
>>284
>>285
>>286

はい、終りにしような?

287nobodyさん2006/10/31(火) 14:14:04ID:WVctgpP6
CatalystでDBIC使ってフォームからの値を一発でアップデート、クリエイトできますか?
以下やってみたけど、エラーとなりまうす
my $result = $c->form;
my $userdata = $c->model('HOGE')->find(uid => $uid);
$userdata->update($result);

あほなのでフォームの値をいちいちハッシュに入れてからじゃないとうまくできないです。
良い方法あったらおしえてください。

288nobodyさん2006/10/31(火) 14:32:22ID:???
>>287
find_or_create

289nobodyさん2006/10/31(火) 14:39:43ID:???
ちょっと伝わらなかったかもしれません。 ごめんなさい。

$userdata->update($result);
これ$resultは$c->formなんですが、これだとエラーになるんですよ。
DBIx::Class::InflateColumn::update(): No such column _records
いちいち $c->req->param('hoge1')をハッシュに入れて、update(\%hoges)とすればうまくいくんですけど
いちいちハッシュにいれなくても良い方法ないですかね。

290nobodyさん2006/10/31(火) 14:55:03ID:???
>>289
$c->formはCatalyst::RequestオブジェクトだからいきなりDBICのupdateに
わたしてもそりゃだめだろう。渡すとすれば$c->form->paramsじゃないか?
チェックはちゃんとしてあるのが前提だけどな。

291nobodyさん2006/10/31(火) 16:08:20ID:???
$c->form->paramsはだめでした。
http://search.cpan.org/~jrobinson/DBIx-Class-WebForm-0.02/lib/DBIx/Class/WebForm.pm
これためしてみましたが、CatalystのDBICに
__PACKAGE__=>config(additional_base_classes => 'DBIx::Class::WebForm');
入れてみたけど
$userdata->update_from_form($result);
で Can't locate object method "update_from_form" とでてしまう...


292nobodyさん2006/10/31(火) 16:16:50ID:???
>>291
$c->form->paramsが返すハッシュリファレンスの中身は期待しているもの
だったのか確認したのか?

update_from_formはクラスメソッド。使い方がマニュアルと違うじゃん。

293nobodyさん2006/11/07(火) 13:24:16ID:oWVVtuaP
DBI使ってtextファイルの中身をpostgresのtext型のフィールドに突っ込みたいんですが、
ファイルの中身は変数に一度突っ込んでから
$sth->execut($text);
する方法しかないのでしょうか?
メモリの使用量が心配なんですが、他に良い方法はありませんか?

294nobodyさん2006/11/07(火) 14:26:05ID:???
メモリが心配になるくらいでかいテキスト、突っ込んだあと
どうやって利用するんだ?
取り出すときもメモリの心配するのか?

2952932006/11/07(火) 17:06:36ID:???
>>294
目が覚めますた。

296nobodyさん2007/01/21(日) 06:10:16ID:r5E3Q3qv
$st = $db->prepare("SELECT student_id,question_update from $tbname; select count(question_update) from results;select count(student_id) from results;");
$res = $st->execute;

while(@res = $st->fetchrow) {
print <<ROW;
<tr>
<td> $res[0] </td>
<td> $res[1] </td>

</tr>
ROW
}

print "$res[2]$res[3]\n";

2972962007/01/21(日) 06:11:07ID:r5E3Q3qv
DBIについての知識が乏しいのですが、締め切りが近いため、無理やりにプログラムを
作っている状態です。超初心者ですが、よろしくお願いします。

上記のように、$st = $db->prepare()の中に複数のMySQL文を入れることは
可能でしょうか?
また、違う点でもご指摘があればよろしくお願いします。

298nobodyさん2007/01/22(月) 03:48:16ID:???
質問する前に試してみれば。



299nobodyさん2007/02/01(木) 08:18:29ID:???
postgresqlですが、pg_enable_utf8してもフィールド名にはUTF8フラグが立たないようです。
fetchrowにラッパーかます以外、簡単な解決策はないでしょうか。

300nobodyさん2007/04/12(木) 00:28:59ID:???
Apacheのバージョン
Perlのバージョン
DBIのバージョン
DBD::MySQL(PG,Oracle)のバージョン
MySQL(PostgreSQL,Oracle)データベースのバージョン
使える組み合わせの一覧表ってどこかにありませんか?

301nobodyさん2007/04/12(木) 04:34:06ID:???
>>300
つくって公表して。

302nobodyさん2007/05/06(日) 12:20:49ID:???
使えない組み合わせなんてあんの?あんまり経験したことないんだが。

303あんのたん ◆PDq1wu.iD. 2007/10/28(日) 21:35:18ID:wtKxxX0g?2BP(1004)
PerlからMySQLの.から始まる独自コマンドを実行したいのですが、どのようにしたら良いのでしょうか。以下のコードでやると(near ".": syntax error(1) at dbdimp.c line 271)とエラーが出ます。
use DBI;
$DBName="TestDB.db";

$hDB = DBI->connect(
"dbi:SQLite:dbname=$DBName","","",{PrintError=>0}
);
if(!$hDB){
print "$DBI::errstr ¥n";
exit;
}

$sql =".table;";

$hst = $hDB->do($sql);
if(!$hst){
print $hDB->errstr . "¥n";
exit;
}
print $hst;
$hDB->disconnect;

304あんのたん ◆PDq1wu.iD. 2007/10/28(日) 21:36:29ID:wtKxxX0g?2BP(1004)
訂正orz
×MySQL ○SQLite

305nobodyさん2007/10/28(日) 22:08:49ID:???
sqliteのドットから始まるコマンドのAPIはDBIにないと思う

テーブル見るだけならsqlite_masterというマスターテーブル?に入ってるから
$dbh->prepare('SELECT * FROM sqlite_master")
とかあとはスクリプトの中からsqliteを直接実行するしかないんじゃないかな

306あんのたん ◆PDq1wu.iD. 2007/10/28(日) 22:17:01ID:????2BP(1004)
>>305
即答ありがとうございます。sqlite_masterとても参考になりました。

307nobodyさん2007/10/29(月) 16:37:20ID:???
sqlite使ってる人いる?
トランザクションでエラーでまくりなんだけど・・・
DBD::SQLite 1.3

308nobodyさん2007/10/29(月) 19:34:44ID:???
普通に使えてますが

309nobodyさん2008/04/27(日) 18:20:14ID:GdnUUJeu
MySQLやPerlのDBIのモジュールを組み込んだりって大変じゃないのか。
調べたりすることが多くて、エラーが出てばっかりとかで、時間は浪費するし、
疲れる。困難の連続なんだが。
DBの接続を実現させるだけでも大変。
でも他人は俺とは違い、難なくクリアしてるんか。頭が良くて、要領もいいのか。
どうやって解決してるんだ。

310nobodyさん2008/04/27(日) 21:25:12ID:???
妥当な入れ物を作って、その入れ物に依存したコードを書いたほうがメリットが大きいだろ。
データの永続化としては、CSVもどきやCSV, YAML, Storable, DBMとかあるとおもうけど
DBIでRDBMSが一番手堅くね?

311nobodyさん2008/04/27(日) 21:25:54ID:???
もつろんORMはDBIx::Classなどを御自由に

312nobodyさん2009/01/12(月) 15:15:30ID:DVs9WJdR
DBIx::Classの話題でないな。
覚えて慣れるまで大変だわ。

313myYyWxRRQ2009/10/23(金) 02:50:19ID:???
I think these people want to hear my logic. ,

314nobodyさん2009/10/23(金) 03:08:54ID:Ax+yFrZW
>>312
覚えるの大変な割りに使い勝手わりーよ
ちょっと気の利いたことすると、すぐに括弧だらけになっちまう
気を利かせなけりゃDBIx::Simpleで充分だし

315nobodyさん2010/04/03(土) 19:03:20ID:E/aWmIoC
DBI::mysqlを使用しているのですが、updateをwhileで2万回回して行っている
箇所があります。

うろ覚えではあるのですが、DBIで実装されている機能側でキャッシュして
これを一括で実行する方法があったような気がするのですが、ぐぐっても
出てこなかったので、幻ですかね。。

316nobodyさん2010/04/06(火) 19:08:31ID:???
>>312,314
そんなあなたたちに DBIx::Skinny

317nobodyさん2010/10/09(土) 14:26:31ID:???
DBIx::Skinny のCPAN上の最新バージョンが 0.0721 でなんかちょっとやだ。いや別にいいんだけど。

318nobodyさん2010/10/09(土) 15:38:48ID:???
>>317
「スキニーパンツ見てオナニー」と覚えよう

319Perl忍者 ◆M5ZWRnXOj6 2010/10/14(木) 21:16:17ID:FhDSY4IL
数ヶ月単位

320nobodyさん2010/11/18(木) 14:10:29ID:Cpwx90i/
IIS <-> Perl <-> OCDB <-> Access(mdb) on WinXP という環境なんですが

mdb上のメモ型フィールドのデータをPerl上で "SELECT memo FROM sampletable" として抽出しようとすると
DBD::ODBC::st fetch failed: [Microsoft][ODBC Microsoft Access Driver]文字列データの右側が切り捨てられました。 列番号 1 (Title) (SQL-01004) at C:\yyy\xxx\www\test.pl line 28.
というエラーが出て、配列にデータが格納されません。

メモ型のみで、テキスト型フィールドのデータはきちんと抽出され、配列に格納されます。

調べてみたところ、メモ型フィールドはSELECTで抽出できないという文章を目にしたのですが
もしそうなのであれば、255Byte以上の文字列はどのようにDBへ出し入れすればよいのでしょうか?

ちなみに、Access上のSQLクエリでSELECTにて抽出した場合には、メモ型フィールドもきちんと抽出されてきます。
同じ命令をOCDB経由で投げると上記エラーが出てきます。
どなたが、救いの手を・・・



3213202010/11/19(金) 16:01:37ID:???
メモ型でもフィールド内が40文字以下ならば、抽出可能なことが判明。
それを超えるとエラーしてしまう。
テキスト型でも、フィールドサイズが255文字までなので、それ以下しか扱えないということになってしまいます。

相変わらず、メモ型の動作が想定外な為、自己解決ならず。

322nobodyさん2011/01/03(月) 19:39:28ID:???
テーブル名にプレースホルダ表記は使えませんか?

$stl = $dbh->prepare("CREATE TABLE ? ( ? char(2) )");
$stl->execute($table_name, $key_name);

文法エラー:
CREATE TABLE 'my_table' ( 'my_key' char(2) )

ほんとうは
CREATE TABLE my_table ( my_key char(2) )
じゃなきゃだめ

  ∧_∧
  ( ・∀・)      | | ガガッ
 と    )      | |
   Y /ノ      .人
    / ) .人   <  >_∧∩
  _/し' <  >_∧∩`Д´)/
 (_フ彡 V`Д´)/   / ←>>79
            / ←>>94

324nobodyさん2017/12/30(土) 16:03:46.85ID:YhlYw6jg
誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

GF0GY9E5D8

新着レスの表示
レスを投稿する