DBIC のスキーマをモデルクラスとして使ってみる - daily dayflower
ドキュメントに書いてないので今後も使えるかわかんないけど、メモメモΦ 普通 DBIC で新しいレコードを挿入するには、 use strict; use warnings; package My::Schema::Artist; use base qw( DBIx::Class ); __PACKAGE__->load_components(qw( Core )); __PACKAGE__->table('artist'); __PACKAGE__->add_columns( id => { data_type => 'INTEGER', is_nullable => 0, is_auto_increment => 1, }, name => { data_type => 'VARCHAR', is_nullable => 0, }, ); __PACKAGE__->set_primary_
DBIx::Class - Japan Perl Association Wiki
トレース DBIx::Classで複雑なクエリを行っている場合、実際に発行されているクエリをみる必要がある場合があります。そのような場合は環境変数DBIC_TRACEを設定してスクリプトを実行すると実行されているクエリをみることができます： DBIC_TRACE=1 myscript.pl クエリが多くて一度に追うのが難しい場合はこの出力をファイルに向けることもできます。 DBIC_TRACE=1=/path/to/query.log myscript.pl トランザクション DBIx::Class 0.08100以上をお使いであれば、明示的に何も指定しなくてもDBIx::Class::Storage::TxnScopeGuardを使用することができます。 #!/usr/bin/perl use strict; use MyApp::Schema; my $schema = MyApp::
Using DBIx::Class to Version Your Schema
Intro to DBIx::Class In my opinion DBIx::Class is one of the best ORM solutions out there. Not only can it model your database, including mapping out any foreign key relationships, it can also be used as a canonical point of reference for your schema. This means we can use it not only as an application layer interface to the database, but can also define a versioned database structure using the
DBIx::Class::Validation - libnitsuji.so
DBIx::Class::Validation - Validate all data before submitting to your database. - metacpan.org モデル層でValidationするモジュールなんだけど、単純にCatalystで使ってみたらイマイチだったのでメモ。 イマイチというのはコントローラが思いのほか汚くなってしまうということと、確認画面があるようなフォームだとモデル層に行く前（insert/updateする前、確認用アクション）でValidationすることになるので単純に使えないということです。また、特にtxn_doとか使うとevalばっかになって嫌な感じです。 sub create_save : Path('create/save') { my ($self, $c) = @_; if ($c->session->{entry}) {
hide-k.net#blog: DBIx::Class::ResultManagerのdeprecatedに備える
DBIx::Class::ResultSetManager - scheduled for deletion in 09000 - search.cpan.org DBIx::Class::ResultSetManager never left experimental status and has now been DEPRECATED. This module will be deleted in 09000 so please migrate any and all code using it to explicit resultset classes using either __PACKAGE__->resultset_class(...) calls or by switching from using DBIx::Class::Schema->load_classes()
Catalyst - Web Framework
6 Keunggulan Slot88 Sebagai Situs Judi Slot Online Terbaik Persaingan situs judi slot online yang seluas lautan, membuat situs-situs berbenah diri untuk memberikan yang terbaik. Ada beberapa situs yang menonjol, salah satunya adalah slot88. Namun, apa yang membuat slot88 berbeda dan spesial? Berikut adalah keunggulan slot88 yang layak untuk dijadikan mitra taruhan Anda: 1. Pilihan Variasi Game Slo
DBIx::Class::Service Released - Yet Another Hackadelic
まだCPANに反映されて居ないと思いますが、DBIx::Class:Serviceと言うモジュールをリリースしました。 /lang/perl/DBIx-Class-Service/trunk (CodeRepos) DBIx-Class-Service-0.02 - Aggregate DBIC processes between multiple tables. - metacpan.org どんなモジュールか 複数のテーブルにinsertしたりする処理をまとめて書く為のモジュールです。 具体的に言えば、 package MySchema::Service::User; use base qw(DBIx::Class::Service); sub add_user: Transaction { my ($class, $schema, $args) = @_; my $user_rs =
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
DBIx::Class::Schema::Loaderの手動スキーマ生成、初心者向けチュートリアル - Yet Another Hackadelic
と言う訳で自分なりに色々調べてみた。 テスト用データベース定義 CREATE TABLE `User` ( `user_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 default NULL, `created_on` datetime default NULL, `updated_on` datetime default NULL, PRIMARY KEY (`user_id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; CREATE TABLE `Book` ( `book_id` bigint(20) NOT NULL auto_increment, `name` varchar(255) character set latin1 de
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
blog.nomadscafe.jp: FormValidatorとDBIx::Class::WebFormの組み合わせはいい。
FormValidatorとDBIx::Class::WebFormの組み合わせはいい。 Scaffoldなどではすでに使われているのだけど、FormValidator::Simple(Data::FormValidator)とDBIx::Class::WebForm(Class::DBIの場合はClass::DBI::FromForm)、この組み合わせはヤバいね。非常に楽ができてしまう。 研究中のCatalystアプリの部分だけど、タイトルと、内容、時間(年〜秒まで6つのフォーム)があって、それをDBに入れる場合、 my $result = $c->form( title=>[qw/NOT_BLANK/], text=>[qw/ANY/], {created_on=>[qw/d_year d_month d_day d_hour d_min d_sec/]}=>[qw/NOT_BLANK
DBIC::Schema で昔やっていたこと - daily dayflower
Yappo さんのYappoLogs: DBIx::Class::Schemaの使い方 を読んで，空気を読まずに自分語りしたくなったので書きます。 最近めっきり DBIC 使っていないんで*1アレですが，make_schema_at とか知らない（というかおそらく存在しなかった）時代にやっていた方法。 当時のターゲット DBMS は PostgreSQL でした。 DBDesigner4 でスキーマをデザインする DBDesigner4 で MySQL 用の SQL をエクスポートする SQL::Translator で上記 SQL 文から PostgreSQL 用の SQL を作成→DB作成 SQL::Translator で上記 SQL 文から DBIC::Schema 継承クラスの HogeHoge::Schema を作成 HogeHoge::Schema::Relations とい
search_literal - Hatena::Diary::Neko::kak 500 Internal Server Error
MySQLの関数を検索条件にぶち込んでほげほげしたい場合 $rs->search({'me.created_on' => {'>'=> \"NOW() - INTERVAL $span DAY"}); とか書くと、$spanがSQLインジェクションになりかねないの。 そういう場合はsearch_literal使うよろし。 $rs->search_literal('me.created_on >= NOW() - INTERVAL ? DAY', $span); こんなSQLで安全無敵 Executing : SELECT me.id, me.rid, me.name, me.created_on, me.timestamp FROM member me WHERE ( me.created_on >= NOW() - INTERVAL ? DAY ) : '1' まあINTERVAL使わな
DBICのRの拡張 - Hatena::Diary::Neko::kak 500 Internal Server Error
WEB+DBが発売されてます。 id:naoyaさんの記事はDBICです！ 買うべしべし。 WEB+DB PRESS Vol.36posted with amazlet on 06.12.27WEB+DB PRESS編集部 技術評論社 売り上げランキング: 690 Amazon.co.jp で詳細を見る DBICでRを拡張する時の話ですが、WEB+DBにも載っているとおり、 CDBIとは異なりDBを操作する時にResultSetというレイヤを経由して もりもりDBを触るのですが、その為、CDBIで簡単にできていたことができなくなっています。 それはRの拡張です。 例えば弊社の場合、idの代わりにridがユニークなキーになってるので、 ridでレコードを検索する場合があり、 CDBIの場合 retrieve_ridというメソッドをCDBIに生やして、 Proj::Data::Blog->re
DBIx::Class 次の一歩（←いまココ） - daily dayflower
DBIx::Class にはいくつか興味深いモジュールがあります。 DBIx::Class::PK::Auto 標準で添付されているモジュールです。これについては以前書きました。 DBIx::Class::InflateColumn 標準で添付されているモジュールです。カラムデータとオブジェクト（たとえば DateTime クラスとか）を相互変換できるモジュールです。これを使うと CDBI の has_a で外部クラスを指定した時のようなことができるのかな？ DBIx::Class::WebForm Data::FormValidator 等の結果をもとに，レコードを作成したり更新したり（CRUD）することができるモジュールみたいです。でも，実際にはフォームとテーブルが一対一対応してることなんて少ないと思います。ドキュメントも全然書いてないし。なので自分では使わないと思います。 DBIx:
DBIx::Class::Schema::Loader で 34 秒くらいで Schema クラス生成 - IT戦記
既存 DB から以下のワンライナー一発で DBIx::Class の Schema が生成できる $ perl -MDBIx::Class::Schema::Loader=make_schema_at,dump_to_dir:./lib -e 'make_schema_at "Hoge::Schema", {relationships => 1, debug => 1}, ["dbi:mysql:hoge","user","password"]' やりかた。 まず、クラスを作りたいディレクトリ付近に移動 さっきのコマンドの dump_to_dir: の箇所にクラスツリーの起点となるディレクトリを指定 make_schema_at の第一引数に生成する Schema のパッケージ名を指定 外部キー制約とかを考慮して has_many とか belongs_to とかを自動で設定して欲しい場合
Elementary, ... 最近のコネタ
この前の仕事からTipsをダンプ... Catalyst x Lighttod の時、Catalyst は 5.7004 以上必須 Shibuya.pm の typester さんの話で感化されたのもあって採用した Lighty、イイ。シンプルに言われたことだけをこなしてくれる感じ。 で、Catalyst を Lighty で動かすときは Catalyst 5.7004 以上が必須なんすね。でないと、SCRIPT_NAME などの環境変数のバグから、http://example.com/foo/ と http://example.com/foo のように最後にスラッシュが付く付かないで実行されるアクションが変わってしまう。なので今後はアプリケーションクラスにすぐ use Catalyst::Runtime '5.7004'; と書くことにした。 Lighty、UploadProgressは
スカラりふぁれる - Hatena::Diary::Neko::kak 500 Internal Server Error
格言「困ったら、Scalarりふぁれる」。 です。はい。 本日もDBICネタですが、DBICのRで困ったらスカラーリファレンスです。はい。 $self->model('User')->search( { 'me.created_on' => \'IS NULL', } )->first; created_onはDATETIME型とします。 こんな感じで実行すると、 SELECT me.created_on, me.rid, me.id FROM user me WHERE ( me.created_on IS NULL ) こんなSQLが実行されます。 さらに、 $self->model('User')->search( { 'me.created_on' => \' > NOW()', } )->first; こんな感じで実行すると SELECT me.created_on, me.ri
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
PostgreSQL & Perl videos on Vimeo
RemovableType » pod翻訳