こういう書き方あるんだ。ほー @actions{ qw( handle_request ..... ) } = (); http://search.cpan.org/src/BERIKV/Catalyst-Plugin-Hooks-0.03/lib/Catalyst/Plugin/Hooks.pm

こんなんで、 1 use strict; 2 use warnings; 3 4 use Params::Validate qw/:all/; 5 6 sub hoge { 7 8 my %hash = validate( @_, 9 { 10 hoge => 2, 11 tage => 1, 12 } 13 ); 14 } 15 16 hoge( 17 { 18 hoge => 2 19 } 20 ); こんな感じ。 あとは、タイプ…

下記見てきになった。 return if $NO_VALIDATION && ! defined wantarray; list要求かどうかの判定でした。http://www2u.biglobe.ne.jp/~MAS/perl/ref/wantarray.html http://search.cpan.org/src/DROLSKY/Params-Validate-0.86/lib/Params/ValidatePP.pm

なんか、データ取れないなあと思っていたら、 onCompelete: function(data) { var json = data.responseText; } ではなくて、 onCompelete: function(data) { var json = eval( '(' + data.responseText + ')' ); } だった。orzhttp://www.atmarkit.co.jp/fw…

$netlocで？になったが、そもそも下記を見たら一発だった。orz 552 sub credentials 553 { 554 my($self, $netloc, $realm, $uid, $pass) = @_; 555 @{ $self->{'basic_authentication'}{lc($netloc)}{$realm} } = 556 ($uid, $pass); 557 } 560 sub get_bas…

Cagtalystのコードみてて、attributesが気になってしまった。 attributes->import( __PACKAGE__, \&namespace, 'lvalue' ); いいろいろ調べてみたらCatalyst::AttrContainerに行き着けた。 14 sub MODIFY_CODE_ATTRIBUTES { 15 my ( $class, $code, @attrs )…

.plとか.pmファイル作成したら既に use strict; use warnings; が書かれているように設定すべきなんだろうか。

なんかこう、あれだなあ。 Spreadsheet::ParseExcel makes you to get information from Excel95, Excel97, Excel2000 file. バージョンかひょっとして。http://search.cpan.org/~kwitknr/Spreadsheet-ParseExcel-0.2603/ParseExcel.pm

この人そとに出して欲しいなあ。http://search.cpan.org/~mramberg/Catalyst-Runtime-5.7006/lib/Catalyst/Utils.pm

こんな感じになるらしい。 use Regexp::Assemble; my $re = Regexp::Assemble->new; $ra->add( 'ab+c' ); $ra->add( 'ab+-' ); $ra->add( 'a\w\d+' ); $ra->add( 'a\d+' ); print $ra->re; # prints a(?:\w?\d+|b+[-c]) うーん。大量に自動処理とか？http://…

dojoで「ColorPalette」を使おうとすると「dojo.widget.html has no properties」って言われるなあと思って調べたら、現在のバージョンでは、 dojo.widget.html.ColorPaletteではなくて、 dojo.widget.ColorPaletteになってた。http://rektunpe.sakura.ne.jp…

こんな感じで取れる。 use JSON::Syck; my $hoge = { hoge => 'aaaaa', test => [ qw(aaaa bbbb) ], } warn JSON::Syck::Dump($hoge); {"test":["aaa","bbb"],"hoge":"aaaaa"} http://search.cpan.org/~audreyt/YAML-Syck-0.72/lib/JSON/Syck.pm

こんな記述で function hoge () { $('hoge').innerHTML = 'That'; } 結果こんなん <div id='hoge'> That </div> http://www.imgsrc.co.jp/~kuriyama/prototype/prototype.js.html#DollarFunction

設定を外に書くのが面倒だった。 use YAML::Syck; my $data = Load( join "", <DATA> ); __END__ --- - hoge: aaaa</data>

インストールしようとして「libgdbm.so」ねえよと文句言われた。 % cd /usr/lib % ln -s libgdbm.so.2.0.0 libgdbm.so詳細は下記。http://perl.apache.org/docs/1.0/guide/install.html#Missing_or_Misconfigured_libgdbm_so

楽に画像サイズを知りたかった。 identify filenamehttp://www.atmarkit.co.jp/flinux/rensai/linuxtips/294grainfo.html http://www.ksknet.net/linux/linuxai/index.html

画像をresizeしてコピーしたかった。 use GD; my $base = GD::Image->new(50,50); # 縮小したいサイズ my $src = GD::Image->new(10,10); # 縮小する対象 $base->copyResized($src,0,0,0,0,$base->width,$base->height,$src->width,$src->height); $base->pn…

文字コードを判定したかったので使ってみた。 use Encode::Guess; my $enc = guess_encoding($data, qw/euc-jp shiftjis 7bit-jis utf8/); warn ref($enc); http://search.cpan.org/~dankogai/Encode-2.18/lib/Encode/Guess.pm

ごく普通に使ってみる。（実際にはauto使うけど）configがこんなんで validator: plugins: - Japanese options: charset: 'utf8' dbic_base_class: 'MyApp::Model::DB'Controllerがこんなん。 if($c->req->method('POST')) { my $result = $c->form( title =…

BSが効かないよなと放置していたのですが、調べたら、 stty -aで確認して、escapeに設定されているコードを合わせてやると直った。補足こんな感じで設定 stty erase '^H' http://moriken.tdiary.net/20020115.html http://cai.cs.shinshu-u.ac.jp/sugsi/Lect…

入れようとした失敗したのでREADMEを見た。 こいつらを入れた。 libtidy-dev - HTML syntax checker and reformatter - development libtidy0 - HTML syntax checker and reformatter - library あとは、CPANでインストールできた。

エラー・・・ OpenSSL-0.9.7b installation directory (get from http://www.openssl.org/ if you don't have it; please note that SSLeay is no longer supported, see README) (C-c to abort): バージョン指定されてるのでDLした。http://www.openssl.org…

BSがいうこときいてくれないなあと思っていたら、詳細設定で「キーボード」→「バックスペースキー」から Control-H へチェック入れたら上手くいった。

メモリ増やして環境が快適になったので、使ってみた。 意味も無く楽しい。

ハードウェアの情報が知りたかった。コマンド一発で出力してくれるのでありがたい。http://www.atmarkit.co.jp/flinux/rensai/linuxtips/657hardinfo.html

１回で表示される件数が少ないからなあ。携帯での制約が２枚目以降へ行かせている気がする。 また、携帯電話のリスティング広告においては、「モバイル検索ユーザーは、検索結果の2ページ以降は見ない」という仮説のもと、検索結果の1ページ目に広告が掲載さ…

いったんメモ sub new { my $self = shift; my $class = ref($self) || $self; my $obj = $class->SUPER::new(@_); # set the default pre- and and postloads $obj->preload_dispatch_types( \@PRELOAD ); $obj->postload_dispatch_types( \@POSTLOAD ); $o…

こんなん use YAML::Syck; __PACKAGE__->config( YAML::Syck::LoadFile(__PACKAGE__->config->{'home'} . '/hoge.yml') ); http://perl.enstimac.fr/perl5.8.5/site_perl/5.8.5/Catalyst/Manual/Cookbook.html

巨大なファイル読み込むのにこいつを使っていたら、システムにkillされた。orz 特性考えたら、そんな用途に使うなって話だな。 read_fileこのサブルーチンはファイル全体を読みこみ、その内容を呼び出し元に返します。 http://perldoc.jp/docs/modules/File-…

logからエラーとか追ったりしようと思ったのだけど、メッセージが分からなかった。「メール送信エラーの原因と対処方法についての技術メモ」が役に立った。あざっす。 あと、携帯メール配信成功術が参考になりました。http://www.drk7.jp/MT/archives/000890…