2008-05-01から1ヶ月間の記事一覧
アルファチャンネルを適用する。$img->convert(preset => 'noalpha')だとなんかアルファを削除してるだけみたいな感じだった。 use Imager; use Imager::Color; use Imager::Fill; my $img = Imager->new or die; $img->read(file => $src) or die $img->err…
via ファイルを作成する - Perlゼミ(サンプルコードPerl入門) これ、タイミングの関係でまずいことが起きる気がする。 my $file = "sample_20080519_$$.txt"; # $$ はプロセスID if( -e $file ){ # ← 上書きしてはいけないので、存在をチェック。 croak "$fi…
tumblrにポストするのに少し手を入れてみる。前に自分で書いたNet::TumblrとかCPANのWWW::Tumblrを使わないで直にAPIたたいてるのは、画像のポストするのにしか使わないからモジュール使うまでもないと思ったから。 use strict; use warnings; use version; …
今アマゾンで\4694からってなってるんだけど、それってなにかおかしくないか。
あーもう、だだ甘いなぁ。合成甘味料だってここまで甘くない。
んー、SFっていうより、SFの道具でファンタジーを書いたような。よかったよ。
最初からサイズが分かっていれば、途中で拡大するコストはかけないようにできるよね。 my %hash; keys(%hash) = 1024;
別のスクリプトからライブラリとしてrequireされてるときは何もしないで、単体のスクリプトとして実行されてるときだけ処理したいコードがあったので、$0を読んでみる。$0には実行してるスクリプト名が入ってるので、それを確認してやればok # foo.pl if ($0…