Perl の ORM として大人気の DBIx::Class を試そうと思ったところ，わりと苦戦したので，その苦戦記なのです． **DBIC のインストール DBIx::Class のインストールは非常に簡単でした． |tcsh| $ sudo cpanp i DBIx::Class ||< **DBD::mysql 今回は MySQL を使用するので DBD::mysql が必要です．しかし，cpanp からインストールしようとすると make test で，具体的に言うと t/10connect.t のこの行でコケていました． |perl| eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password, { RaiseError => 1, PrintError => 1, AutoCommit => 0 });}; ||
ちょっと前まで DBI で非同期アクセスなエントリが各所で上がっていましたが皆さん如何お過ごしでしょうか？ さてと、、、歴史的な経緯とか歴史的な経緯とかで生 DBI 相当を使ってる方もそれなりにいるでしょう。奥さん、大事な事なんで二度言いましたよ！ DBI のインターフェースってまぁそんな使いやすい物じゃないんですが、工夫次第で出来る事もあります。 ちなみにサンプルデータベースとして、MySQL Documentation - Example Databases の world データベースを使っています。 fetchall_arrayref でデータ整形 まず以下のように使ってみます。 #!/usr/bin/perl use strict; use warnings; use Data::Dump qw(dump); use DBI; use Perl6::Say; my $dbh =
前回はArkを使用した開発方法と開発の一連の流れを説明しました。今回から2回に分けてより実用的なサンプルアプリケーションを作成しながら、Arkの機能をより詳しく紹介します。 掲示板の概要 今回作成するアプリケーションは、OpenID認証を使用したシンプルな掲示板アプリケーションです。 モデルとビュー 前回はコントローラだけしか使用しませんでした。今回はモデルとビューもすべて使用します。 Arkは、モデルやビューなど自分の使いたいモジュールを組み合わせて使用することができるようになっています。コントローラ以外は、CPANにある好きなモジュールを使えるということです。 これは膨大な量のCPANモジュールを持つPerlならではの発想かもしれません。 図 ビュー/モデルには自分の好きなモジュールを使用することができる モデル モデルはアプリケーションのロジックを定義するクラスです。 上記の例ではデ
Tools Download (45.38KB) MetaCPAN Explorer Permissions Subscribe to distribution Install Instructions Dependencies Class::Accessor Class::Data::Accessor Class::Data::Inheritable Class::Inspector Date::Calc DateTime::Format::Strptime Email::Valid Email::Valid::Loose List::MoreUtils Mail::Address Scalar::Util Tie::IxHash UNIVERSAL::require YAML and possibly others Reverse dependencies CPAN Testers L
List::Rubyish をリリースしました ブクマコメントでnaoyaさんからhttp://github.com/naoya/list-rubylike/tree/master/lib/List/RubyLike.pmがバグも無くていい奴だから、そっちとdiffとって適用したほうがいいよ！とアドバイスいただいて、その差分をmergeしつつList::RubyListのテストコードをコピペするだけの簡単なお仕事をしてテストカバレッジ率も100%になったのでshipitしました。 というかnaoyaさん & secondlife 組の元コードのテストカバレッジ率が90%くらいだったので物凄く楽出来ました＾＾ http://search.cpan.org/dist/List-Rubyish/にそのうち反映されるはず。 List::RubyLike は use すると list 関数を exp
To install Data::FormValidator::Constraints::Japanese, copy and paste the appropriate command in to your terminal. cpanm cpanm Data::FormValidator::Constraints::Japanese CPAN shell perl -MCPAN -e shell install Data::FormValidator::Constraints::Japanese For more information on module installation, please visit the detailed CPAN module installation guide.
String::Diff - 行内差分取得モジュール 普通のdiffは行単位での差分を取るんですが、一行の中での差分がどうしても取りたくてString::Diff(2008/06/24リンク切れなおしたtokuhirom++)ってのを作りました。 既存のCPANモジュールだとString::ShowDiffが微妙に近かったんですが、目的の事が出来ないので作りました。 出来ることは 文字列同士の差分を作って変更無い場所、変更が合った場所で配列を分けて作成。 my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby'); for my $line (@{ $diff->[0] }) { print "$line->[0]: '$line->[1]'\n"; } # u: 'this is ' # -: 'Perl' fo
最近話題の local::lib を使って、さくらのレンタルサーバで CPAN を利用できるようにしよう。 ということで、今までは MyConfig.pm やら .zshrc やらに、CPAN を利用するためのいろいろな設定を書いていたけれど、今回はそれをまっさらな状態にしてインストールすることに。 とゆーわけで、とりあえず今の設定などなどを全部削除。 $ rm -rf ~/.cpan あと、.zshrc に書いてあった環境変数 PERL5LIB の設定なども消去。 肝心のインストール方法については hide-k さんの以下の記事が非常に参考になりました。多謝。 local-libを使った非rootでのCPAN環境構築 http://blog.hide-k.net/archives/2009/02/locallibrootcpa.php ただし、このままの方法だと Module::Buil
*2010/08/12追記 まずはMacportsのインストール PerlのインストールにもMacportsを使うと/opt/local以下にインストールしてくれるのでオススメします。 MacのデフォルトのPerlのインストールディレクトリを汚さないですし、アンインストールやアップグレードなどのバージョン管理もできるパッケージ管理ツールです。 MacPortsとは？ MacPorts(旧名DarwinPorts)というのはパッケージ管理ツールで、UNIX向けのオープンソースソフトウェアをダウンロード、configure、make、インストール、そのパッケージ使用するのに必要な他のパッケージも一緒にインストールなど面倒な作業をすべて代わりにやってくれる便利なソフト。 source: Macports – Macの手書き説明書 事前にXcodeTools、X11をMacに付属しているインストー
« 良い子のMacなPerlユーザーに送る、あなたのPerlアプリをMacアプリにする方法 (Mac版的PAR) | Main | 虹クッキリしすぎワロタ » Log::Dispatch::Screen::Color - ログに色付けるよ Log::Dispatch::Screen::Color を shipit しました。(りぽじとりはこっち) 昨年末に空前のlog colorブームがあったのですが、最近僕もようやくLog::Dispatchをまともに使うようになったので、Log::Dispatch::Screenに色付けたくなって付けました。 うそです。hirose31さんが呟いてたので作りました。 こんなコードと use strict; use warnings; use Log::Dispatch::Config; Log::Dispatch::Config->configure(
Vistaで動作確認。 #!/usr/bin/perl use strict; use warnings; use Win32::API; my $SPI = Win32::API->new("user32", "SystemParametersInfo", "NNPN", "N"); my $SPI_SETDESKWALLPAPER = 20; my $IMG_PATH = "c:\\ashibe.bmp"; my $fWinIni = 0; #一時的な変更なら0。1にするとレジストリを書き換える。 $SPI->Call($SPI_SETDESKWALLPAPER, 0, $IMG_PATH, $fWinIni); このサンプルのままだとcドライブ直下にあるashibe.bmpを壁紙にします。bmpかjpgファイルを壁紙にできます。 画像の表示方法（拡大、中央など）は現在の設定を引き継い
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
クロスプラットフォームなファイル・ディレクトリパスの操作 Path::Classを使うとファイルやディレクトリの操作ができます。 ディレクトリ操作 use Path::Class qw(dir); my $dir = dir('foo', 'bar'); # もしくは use Path::Class::Dir; my $file = Path::Class::Dir->new('foo', 'bar'); # Windowsだったらfoo\bar # Unixだったらfoo/bar で表示される print "$dir\n"; # サブディレクトリの取得 my $subdir = $dir->subdir('baz'); #foo/bar/baz # 親ディレクトリの取得 my $parent = $dir->parent; # foo # 絶対パスの取得 my $abs = $dir->
一個前のエントリで、はてなダイアリーのウクレレ記法をけっこう使ってるだなんだって話をしましたが、私はどちらかというとウクレレとか全然弾かなくて、ギターばっかり弾いてたりするので、なんか Music::Image::Chord という、それっぽいモジュールがあったので使ってみたら、何だか色々と残念な結果だったなんてつぶやきました。 で、やっぱ、ギターのタブ譜を出力するのは大変だなーって思ってたら、コメント欄でようちゃんから むしろ、GD::Tab::Ukuleleを改造する方向でどうでしょう？ と提案してもらったので、その方向で検討してみました。 まず、ギターの場合、ウクレレと違って弦が 6 本なので、2 本追加して、フレットの長さを変えました。 それにともない、画像のサイズはウクレレのものより大きくしました。 ギターには、ミュート弦という概念があって「この弦は音を鳴らさないんだよー」なんて
This domain may be for sale!
かなり久々のエントリー。ちょっと海外旅行をしてまして全くプログラムしてませんでした。帰ってすぐに会社でImageMagickを使うことになったので、Macに入れてみたところハマりました。 とりあえず、ググってみたところここで回避方法が。バージョンが違ったので不安でしたがインストールできました。 以下の環境でうまくいきました。ワーニングは出てますが気にしません。 MacOS X 10.5 ImageMagick 6.40 PerlMagick 6.40 Mikefile.PLを書き換える # Preprocessor defines 'DEFINE' => ' -D_LARGE_FILES=1 -DHAVE_CONFIG_H', # e.g., '-DHAVE_SOMETHING' # Header search specfication and preprocessor flags #'I
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く