2006-12-01から1ヶ月間の記事一覧
大変お世話になりましたm(_ _)m
2.49 test6 (build.2494106)で、たまにはてブのブックマークレットがエラーで動かなくなる。必ずってわけじゃないけど、CPANのページをブクマしようとするときに起こりやすいみたい。
clmemo@akaさんのところを見て、そういえばGoogle Analytics入れてるのを思い出したので、ちょっと確認してみた。こんな感じ。 Internet Explorer - 65.43% Firefox - 23.95% Opera - 3.95% Safari - 3.46% Netscape - 2.72% OSだとこう。 Windows - 92.10% …
Skype用のヘッドセット
朝食後 パキシル (10mg) ガスモチン (5mg) ルボックス (25mg) 昼食後 パキシル (10mg) ガスモチン (5mg) ルボックス (25mg) 夕食後 パキシル (10mg) ガスモチン (5mg) ルボックス (25mg) 就寝前 ロヒプノール (1mg) テトラミド (10mg) 月曜日から書き忘れて…
my $txn = sub { my $img = $schema->resultset('Image')->find_or_create({ image_id => $image{image_id}, extension => $image{extension}, width => $image{width}, height => $image{height}, filesize => $image{filesize}, original_name => $image{o…
んー、なんか微妙だなぁ。とりあえず今の方針で書いてみる。データ構造ならともかく実装ならあとからでも替えがきくし。あとトランザクション重要。
$self->say(scalar(localtime), " $src"); $self->say(" move $src => $dest"); my @tags = $self->getCategory($src); my %image; my $temp = (File::Spec->splitpath($dest))[2]; if ($self->_debug) { File::Copy::copy $src, $temp or croak $!; } else …
バイクで事故ったみたい。心配です。 追記 [23:40] 怪我はしたし、バイクは廃車になったけど、とりあえず無事なのでセーフ。生きててよかった。
package Tangerine::Plugin::Evangeline::Image; use strict; use warnings; use version; our $VERSION = qv('0.1.0'); use Class::InsideOut qw/private register id/; use Image::Magick; use Tangerine::Core::Carp qw/croak/; private _im => my %_im; …
だいぶ複雑になってしまった。 $p =~ /Plugin::(?:(?:(?!Base)).(?
今の実装だとわりとオーバースペックなモジュール。どうせ自分で使うだけだから、ハッシュリファレンスに何でも入れておいても誰も外から触らないし、シングルスレッドでしか走らせないから、複数インスタンスが同時に存在することもないし。けどせっかくだ…
画像を扱うクラス…なんだけど、書いてみてどうもすっきりしない。インターフェースは決まってるんだけど、内部の実装ですっきりこないんだよね。ハッシュリファレンスに突っ込むと外から触れるし、Singleton Patternもなんか違う。ていうか、Singletonなんか…
ファイルのIDはハッシュ値を使うから仮に投稿時刻がかぶっても大丈夫。だから&Time::HiRes::timeは必要なくて組み込みのtimeで十分足りる。
ひさびさにラジオを聴いたり。裏でいろいろ作業しながら。とりあえずはあと5枚。余裕があれば追加で12枚。
>delete. Oct. 7th, 2010
いつのまにか5人になってる。だいぶ長い間4人だったから、ひさびさに増えたなぁ。誰がfavってるのかは分からないけど、なるべくなら期待に沿えるようなブクマエントリをしていかないとね。
20a21,24 > if ($^O eq 'MSWin32') { > require Config; > $abs .= $Config::Config{exe_ext}; > } Makefile.PLで失敗する。回避パッチ、というにもあまりにもシンプルなものだけど。 Math-Random-MT-Auto-6.22 - Auto-seeded Mersenne Twister PRNGs - meta…
ひたすらインストール。ついでにppmパッケージにまとめて保管。たぶん30個くらいやったと思う。Tangerineのインターフェースは下のでほぼ確定だけど、今日はもう疲れたからまた明日。
これが決まらないことにはコードが書けない。どうしよっかなぁ。いま妄想してるのをコードに落としてみる。 $img = Foo->new(file => 'bar.jpg'); # $img = Foo->new(filehandle => $fh); # ファイルハンドル渡し ($width, $height, $size) = $img->get(qw/w…
あれ、Shift_JISじゃなくて、CP932のほうがいいんじゃないか? 昔チャットログのコンバータ書いたときにWAVE DASH - FULL WIDTH TILDE問題ではまったことがあるような。 追記 [13:01] 全部grepで探し出して、cp932に書き直し。
直した。 my $charset = eval { Tangerine->_config->val(qw/Global charset cp932/) }; $charset = 'cp932' if $@; あとはこれでShift_JIS決め打ちになってるところを[]$charset[]を使うように置き換えるだけ。
my $f = $schema->resultset('Foo'); 引用元: Perl/DBIC - Nekokak's core dump いちいちresultsetを呼ぶのはめどいので、こうやれば少しだけ楽に書ける。 で、これを利用して、今書いてるコードはこんな感じ。 foreach (qw/Image Tag ImageTag/) { $table{$…