勝手に添削 - WEB+DB Press Vol.32 オレオレコード版 - naoyaのはてなダイアリー
私もWEB+DB Pressへの連載をはじめたので、同誌のますますの反映を祈ってやまないのだけど、それだけに、同誌にこういうサンプルコードがあるのは気になる。一応きちんと動くので、blogとかのentryであればこれでもよいのだけど、この手の雑誌はかなり長い間保管され、読者に何度も参照されることを考えれば、「その後」のことを考えて推敲しておく方がいいだろう。Damianも言っていたように、「ソースコードは未来の自分へのラブレター」なのだ。 という弾さんのリファクタリング結果に対し わたしなんかよりよっぽど perl を知っている人なのだろうから機能的な 点についてはコメントしないが、はたしてこの添削後のコードはきれいなのか? となかなか手厳しい突っ込みもあり そうそう。なぜこのRefactor版を使わなかったかと言えば、それはこのサンプルコードがまさに書籍という容量制限の厳しいメディアに掲
perl の import の働き
use と require と import の関係 perldoc perlmodによると、use というのは次と等価と書かれています。 use Module; use Module LIST; はそれぞれ、 BEGIN { require Module; import Module; } BEGIN { require Module; import Module LIST; } と等価になります。 BEGINとは？ BEGIN というのは、perl がそのソースファイルをロード中、発見次第最初に１回だけ実行する構文であるという意味です。少しフォローしておくと、モジュールのロードは、@INCにあるパスを順番に見てロードされますが、lib/ 以下に自作モジュールがあるとき、 push(@INC, './lib'); use Module; はエラーとなります。先に use （BEGIN内構
初めてのMoose - Mooseのすすめ - とほほのN88-BASIC日記
シンプルなPerl 5でクラスを作る 普通のPerl5 OOでクラスを書くと { package Dog; use strict; use warnings; sub new { my ( $class, %args ) = @_; my $obj = bless { name => $args{name}, gender => $args{gender}, }, $class; return $obj; } sub name { my $self = shift; $self->{name} = shift if @_; return $self->{name}; } sub gender { my $self = shift; $self->{gender} = shift if @_; return $self->{gender}; } sub bark { my $self = s
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
社内勉強会 - Pixel Pedals of Tomakomai
Class-Accessor-Lvalue-0.11
初めてのMoose
perl-mongers.org
http://egg.bomcity.com/wiki?Class%3A%3AAccessor%3A%3AFast
Class-Accessor-0.51
use base - クラスの継承
Perlオブジェクト指向プログラミング