2008-04-01から1ヶ月間の記事一覧

ほんとのスーパークラス

↓のような感じで他のパッケージにメソッドを生やすってのはよく有る手法なんですが sub import { my $class = shift; my $pkg = caller; no strict 'refs'; *{"$pkg\::method"} = \&method; } id:hirataraさんの↓で述べられてありますが http://d.hatena.ne.…

Mooseかじりかけ

http://search.cpan.org/~stevan/Moose-0.40/lib/Moose.pm 何かと話題のMooseかじりかけです。そもそも何?から入ってみました。自分用。 A postmodern object system for Perl 5という事でperl5OOを今風に書けるよ!って事でしょうかね。とりあえず書いた …

Filter::Simpleでセイセーイ!

↓の辺とか http://search.cpan.org/~ingy/Inline-YAML/ ↓の辺で http://search.cpan.org/~kazuho/Filter-SQL/Filter::Simpleというモジュールが使用されていてなんだかかっちょいいのでやってみました。 http://search.cpan.org/~dconway/Filter-Simple/lib/…

++とか--が前にあったり後ろにあったり。

こういうの知らないと恥ずかしいよ。ってか知らなかったorz。恥ずかしい。何かと言いますと $i++; と ++$i; の違い。検証用 use strict; use warnings; use feature qw(say); { my $i = 0; my $res = ++$i; say $res; } { my $i = 0; my $res = $i++; say $r…

__ANON__ってさ

パッケージ名::__ANON__ってよく見かけると思うんですが、何かと言うと一言で言えば無名サブルーチン。ってのは分かってはいたんですが、確かめた事が無かった(と思う)ので実際確かめてみたんですのよ。 use strict; use warnings; use Carp qw(croak); my $…