Drkcore

package AbstractDisplay;

use Spiffy -Base;

stub 'open';
stub 'print';
stub 'close';

sub display {
        $self->open;
        for my $i (0..4) {
                $self->print;
        }
        $self->close;
}

CharDisplay.pm

package CharDisplay;
use AbstractDisplay -Base;

sub new {
   my $char = shift;
   bless {ch => $char}, $self;
}

sub open {
   print "<<";
}

sub print {
   print "$self->{ch}";
}

sub close {
   print ">>\n";
}

StringDisplay.pm

package StringDisplay;
use AbstractDisplay -Base;

sub new {
   my $str = shift;
   my $w = length($str);
   bless {
       string => $str,
       width => $w
       }, $self;
}

sub open {
   $self->_printline;
}

sub print {
   print "|$self->{string}|\n";
}

sub close {
   $self->_printline;
}

sub _printline {
   print "+";
   for my $i (0..$self->{width}-1) {
       print "-";
   }
   print "+\n";
}

main.pl

#!/usr/bin/perl
use strict;

use CharDisplay;
use StringDisplay;

my $d1 = CharDisplay->new('H');
my $d2 = StringDisplay->new("Hello, World.");
my $d3 = StringDisplay->new("るるるるる");

$d1->display;
$d2->display;
$d3->display;

で実行してみる。

<<HHHHH>>
+-------------+
|Hello, World.|
|Hello, World.|
|Hello, World.|
|Hello, World.|
|Hello, World.|
+-------------+
+---------------+
|るるるるる|
|るるるるる|
|るるるるる|
|るるるるる|
|るるるるる|
+---------------+

抽象クラスのstubは実装をサブクラスに任すときに使う。サブクラスで実装されてないとdieする。

試しに、CharDisplayのprintメソッドがないと

Method print in package AbstractDisplay must be subclassed at \
/usr/lib/perl5/site_perl/5.8.8/Spiffy.pm line 279
        Spiffy::__ANON__('CharDisplay=HASH(0x9a49c28)') \
        called at AbstractDisplay.pm line 12
        AbstractDisplay::display('CharDisplay=HASH(0x9a49c28)') \
        called at ./main.pl line 11

とエラー吐いてとまる。

コードの見通しは良くなる感じ(もうちょっと複雑なことやってみないと分からんけど。)

28022007 life

Xactiがちょっと欲しくなってきた

デジカメは一人一台+デジタルビデオはあるんだけど、ちょっとした日常のひとコマを切り取るのにちょうどいい動画デジカメはないかなぁと物色してたら

三洋電機デジタルムービーカメラ「xacti」 DMX-CG6(ピンク) DMX-CG6(P)

三洋電機 / ?円 ( 2006-11-17 )

欲しくなった。HD1,HD2だったらハイビジョンデジタルビデオ買うからこのぐらいのスペックと値段は結構いいかも。

週末電気屋で実機調査な予感。

28022007 music d'n'b

Play with the Changes

ジャズトロ好きならきっと気に入ると思うよ(ボソッと)。ベースが際だってる感じで、ビニョ―ン感っていうか、スイングっぽいうねりが気持ちいい。

Play With the Changes (Dig)
4hero
Milan Records / 2040円 ( 2007-02-27 )

ジャズトロよりは渋め。そしてボーカルが多め。

正直ムンベーっぽさはない。Bed Of Rosesくらいなもんか。

聴き飽きしなさそうな感じ、というかたいして聴いてもいないのにそう感じさせるのは多分クォリティーが高いんでしょう。

ちなみにこのアルバムでの僕の一番はThe Awakeningだ。ポエトリーっぽいボーカルにゆったりうねるリズムがたまらん。

28022007 catalyst

WWW::CloudCreatorがいい感じ

いつもタグクラウド作るのにHTML::TagCloudとかHTML::TagCloud::Extendedを使っていたのだが、WWW::CloudCreatorというモジュールを教えてもらったのでいじってみた。

おおまかな違いはHTML::TagCloudはhtml(とcss)をそのまま吐くのに対し、WWW::CloudCreatorはタグ名とカウントとスタイル要素を戻してくる。

だから、TTと組み合わせるにはWWW::CloudCreatorのほうが良い感じ。

ただし、配列で戻してくるのでTTが

[% FOREACH tag = tagcloud %]
<span style="[% tag.2 %]">
<a href="[% Catalyst.uri_for('/bookmarks/') %]/[% tag.0 %]">
[% tag.0 %]([% tag.1 %])
</a>
</span>
[% END %]

となってちょっとわかりにくい気が。

あと、WWW::CloudCreatorはサイズだけじゃなくて色も変化させることができるんだが、こっちはちょっとバグってた。

81行目あたりをhexdecでレンジを揃えて82行目でdechex二度がけ。

my $ihex = hexdec($coldarray[$i]) + ($colorstep[$i] * $fraction);
my $decihex = dechex(dechex( $ihex ));

dechex関数も直す。負の方向にグラデーションがかかる場合にa-fがdechexに渡ったら無視するように。

sub dechex {
   if($_[0] =~ /\d+/){
           return sprintf '%x', $_[0];
   } else {
           return $_[0];
   }
}

これでうまくいってるような気がするけど。

wcc

色のグラデーションはタグの頻度ではなくて、タグ間の関連性とかの違う軸ででかけるようにしたいなぁ。

26022007 長野

ヤマボクトリップ2007

今シーズンはまるで滑ってないわけだが、苗場、赤倉温泉に続いていつのも山田牧場に行ってきた(ヤマボクトリップ)

到着して一言、

ウワー、雪がねー。

正直、一昨年の年末のヤマボクよりも雪が少ない。

前日降ったにも関わらず、上級コースは笹が見えまくりで滑れそうなかんじではニャイ(でも滑ったけど)。しかもところどころガードレール見えてるし（擦ったけど）。後で宿の人に聞いたら、今シーズンは上級コースがまともに滑れる日が一日もなかったそうだ。

初日は吹雪いてたが、スコップ担いで、ビデオ持ってキッカー作って飛びまくり。例年より雪が少ないのでキッカーポイント探すのに苦労した。カメラは持って行ってなかったので写真は撮ってないが、吹雪いていると微妙に視界が悪く、樹氷が綺麗で、一人乗りリフトなんか乗ると幻想的で綺麗だ。一度は薦めたい。

二日目は前日とは違い快晴。しかも少しだけ積もったので、スピード出すと雪が舞うのできもちいい。右側のリフト降りたとこで撮影したらこんな感じ。

ちょっと厳しいそうな林間とか怪しそうな新雪を隠れキャラに気をつけながら滑りまくり。数少ない今シーズンのトリップの中で一番。

昼は、二日ともコンパス。前日はチーズとベーコンの焼きカレーを食べたので、二日目はベーコンと杏のピザ（蕎麦粉）とカフェオレ。

ベーコンに杏はどうかなと思ったけど、鴨肉にフルーツソースかけた感じでかなりいい。やっぱ、キッチンコンパスうめー。

ヤマボクサイコー！

でも、今シーズン滑り納めな気がする。

26022007 template tt

TTでサブルーチン

TTにクロージャを渡せるということを知らなかったので、ドキュメントを読んだ。

Catalystだとコントローラーでクロージャ作ってTTに渡せばプラグイン化するまでもないちょっとした処理はOKっぽい。

Virtual Methodsはpythonみたいだ。メソッドとして使いたいものはこっちで書いたほうがいい気がするが、プラグイン化するのが前提っぽいのでお手軽感がちょっと減る。

というわけで、上記のどちらかを使えば、PERLブロックはあまり使わなくてもいいような気がしてきた。この前のPERLブロックは後で書き直す。

もう5年目(wishlistありマス♡)
最近はPythonとDeepLearning
日本酒自粛中
ドラムンベースからミニマルまで
ポケモンGOゆるめ