こういう書き方あるんだ。ほー @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 =…