[perl][moose] 世界のナベアツ問題をMoose::Roleで解く | 2009-05-02 - gem戦記
最近、Perlの勉強を始めて Moose というモジュールが面白かったので、これを使って「世界のナベアツ問題」を解いてみました。 「世界のナベアツ問題」とはこれです。 1 から 40 までの数をプリントするプログラムを書け。 ただし 3 の倍数または数に 3 が含まれる時はその数に続けて、「〜〜〜」をプリントし、8 の倍数の時はその数に続けて「ぅぅういえぇえあ」をプリントすること。 これを普通にPerlで書くと、こんな感じになると思います。 use strict ; sub print_number { my ($n) = @_ ; print $n ; print "〜〜〜" if (($n%3 == 0) || ($n =~ /3/)) ; print "ぅぅういえぇえあ" if ($n%8 == 0) ; print "\n" ; } print_number($_) for 1..
![[perl][moose] 世界のナベアツ問題をMoose::Roleで解く | 2009-05-02 - gem戦記](https://cdn-ak-scissors.b.st-hatena.com/image/square/c9a82ab949e6a8dd318edd6c57ead6476f6afc75/height=288;version=1;width=512/https%3A%2F%2Fimages-fe.ssl-images-amazon.com%2Fimages%2FI%2F51e3YikD7EL._SL160_.jpg)
Mooseのお勉強（1） : あるソフトウェアエンジニアの戯言
Mooseのドキュメントを読んでの覚書 Moose::Intro new, DESTROYメソッドは作ってはいけない Class class は attribute を持つことができる class は method を持つことができる class は superclass を持つことができる class は method modifier を持つことができる class では role が実行されることがある class は コンストラクタとデストラクタを持つことができる。（ただし、new, DESTORYという名前ではなく BUILD(), DEMOLISH() という名前のメソッドになる） コンストラクタには名前つき引数を与えてインスタンスのattributeを初期化することができる class は metaclassを持つ。 metaclassには meta-attribute, m
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
