dbix-class

5熱度

2回答

使用DBIx::Class，我有一個結果集需要過濾不能由SQL生成的數據。我需要做的是什麼實際上等同於這個假設的例子： my $resultset = $schema->resultset('Service')->search(\%search); my $new_resultset = $resultset->filter(sub { my $web_service = shift

17熱度

3回答

我可以漂亮地打印DBIx :: Class中的DBIC_TRACE輸出嗎？

的DBIC_TRACE環境變量設置爲true： BEGIN { $ENV{DBIC_TRACE} = 1 } 產生非常有用的輸出，尤其是顯示出正在執行的SQL查詢，但SQL查詢是所有在一行。有沒有辦法推動它通過某種「SQL tidy」例程來更好地格式化它，也許把它分解成多行？如果沒有，那麼是否有人能夠推動我在需要破解的代碼中添加這樣一個鉤子？最好的工具是接受格式不正確的SQL查詢並推出格式良

2熱度

3回答

MySql：事務不檢測死鎖？

考慮下面的Perl代碼： $schema->txn_begin(); my $r = $schema->resultset('test1')->find({id=>20}); my $n = $r->num; $r->num($n+1); print("updating for $$\n"); $r->update(); print("$$ val: ".$r->num."\n"

1熱度

1回答

DBIx ::類結果類別和實際表

我學習DBIx類和我有點困惑，因爲我與數據庫的交互至今一直在PHP代碼普通的SQL查詢。反正，按照我的理解，這個類與結果類中定義的，而不是直接與數據庫交互的模式運行。該模式可以通過各種.pm類手動構建，也可以通過Loader類從數據庫中提取。我的問題是：對此的首選方法是什麼？如果我手動構建結果類然後更改我的數據庫會怎麼樣？我想我必須編輯表格和類，是不是有點不切實際？感謝

4熱度

2回答

我如何有一個持久的DBIx ::類的CGI ::應用程序使用的mod_perl？

我使用CGI ::應用與DBIx ::類的mod_perl，我想有一些像新的定義上實例化一個新的DBIC架構。到目前爲止，我還沒有能夠得到它的工作。我所接觸到的最接近的是具有返回新對象的connect（）方法的超類，但我寧願它已經被連接並實例化。我會很感激的任何想法都沒有。謝謝！注意：好的，所以顯然沒有幫助，但是，在此期間，我做了一個訪問器，懶惰地實例化DBIx :: Class，所以這可能

3熱度

2回答

選擇

類我有以下DBIx ::類代碼： my $where = 'me.loginid = ? AND me.code = ?'; my @bind = ($loginID, $code); my $tip_signals = $bom_schema->resultset('Table1')->search_literal( $where, @bind, { join

10熱度

4回答

在使用Template Toolkit的Catalyst項目中顯示DBIx :: Class ResultSet的正確方法是什麼？

給定DBIx ::類的結果集，例如： my $rs = $c->model("DB::Card")->search({family_name => "Smith"}); 教程我讀過使用藏傳行的數組引用： $c->stash->{cards} = [$rs->all]; 這將導致查詢得到執行在這一點上，並將得到的物體塞到藏匿，這樣他們就可以在TemplateToolkit作爲： [% FOR

1熱度

1回答

如何在DBIx :: Class中使用DBD :: Proxy？

我需要通過防火牆獲得數據庫連接，並限制可以運行的查詢。 DBD :: Proxy似乎是完美的解決方案。但是，我目前使用DBIx :: Class，並不知道如何將它們連接在一起。特別是，DBD :: Proxy不採用SQL;它需要特定的命名查詢。但是DBIx :: Class似乎沒有辦法調用這些命名查詢。這是基於Catalyst的web應用程序。

1熱度

2回答

右手側MySQL函數在DBIx ::

類在DBIx ::類，當我使用此語法生成的查詢： ... 'Time(submitted_at)' => { '>' => 'Time(Now()-Interval ' . $wait_period . ' minute)' } ... 生成的查詢是除了事實完美該函數上右邊是引號。 ... AND (Time(submitted_at) > 'Time(Now()-Interval 5

5熱度

3回答

如何在Perl中乾淨地提取MySQL枚舉值？

我有一些代碼需要確保一些數據在插入到數據庫之前在mysql枚舉中。我發現這樣做的最徹底的方法是將下面的代碼： sub enum_values { my ($self, $schema, $table, $column) = @_; # don't eval to let the error bubble up my $columns = $schema->stora