« September 2005 | メイン | November 2005 »

October 30, 2005

Amazon Web Service用プラグイン その2

Amazon Web Service用プラグインの記事の最後にも書きましたが、エントリー内にAWSタグを使いたいので、Process Tagsを導入してみました。

手順はココにに詳しく載っていたので、早速手順通りにプラグインを置いて動作確認。

見事Amazonへのリンクが作成されました。これでAmazonギフト券をためます。

でもその前に、いい加減Google様にひっかかるようになりたいです。。。

October 28, 2005

Amazon Web Service用プラグイン

Amazon Web Service用のプラグインaws.plを導入してみました。
ココからaws.plをDLしてpluginsディレクトリに設置。
ためしに個別エントリアーカイブに以下のソースを記述してみました。 
<div style="border: solid 1px #666666; padding: 1em;">
<MTAws dev_token="xxxxxxxxxxxxx" associate_id="xxxxx-22" search="KeywordSearch" query="Perl" mode="books-jp" lastn="3">
<a href="<$MTAwsurl$>"><img src="<$MTAwsImageUrlSmall$>"><br />
<$MTAwsProductName$><br />
  <$MTAwsAuthors$><br />
  <$MTAwsListPrice$><br />
  <$MTAwsReleaseDate$>
</a>
<br />
</MTAws>
</div>
結果みごとにAmazonへのリンクが生成されました。
注意事項としてdev_tokenに間違えた値を指定するとエラーにならず、空のリンクが生成されるので正しい値をいれましょう。
※最初これに気づかず「aws.plのバグか？」なんて疑って、2時間くらい悩みました。 あと、「KeywordSearch」でqueryのところに「<$MTEntryTitle$>」を入れたらエントリーごとに個別のリンクが作れるじゃない？と思い設定してみたら見事エラーになりました。
今後の課題は「process_tags」を導入してエントリーにこのawsのタグが使えるようにすることです。

October 26, 2005

GPSの計測

携帯で撮影した写真のGPS情報を計測するプログラムを作ってみました。

http://www.nitoka.net/search_gps/search.html

October 25, 2005

我が家のセローム

マイセローム
これが我が家のセロームです。
しかし本来は・・・

セローム本来
直立してます。マイセロームとは大違いです。

October 22, 2005

カテゴリーアーカイブディレクトリ

昨日、とあるMTを使用している案件でMTの珍現象を発見しました。(v3.15) １．カテゴリ名に日本語と英語を組みあわせた名前に設定すると、カテゴリーアーカイブディレクトリが入力した英語のディレクトリになる。 
例：「Designとは」というカテゴリ名を作成
　　→アーカイブディレクトリはdesignとなる。(デフォルトはcat××とかじゃないの？）
２．日本語と英語を組みあわせた似たようなカテゴリを設定するとカテゴリーアーカイブディレクトリが重複してしまう。 
例：「Designとは」と「Designとは何か」という似たカテゴリを作成
　　→アーカイブディレクトリがdesignというディレクトリ一つしか生成されない。
３．カテゴリー名に全角スペースを入れるとアーカイブディレクトリがアンダーバーになる(_)。 
例：「デザイン　センス」という全角スペース入りのカテゴリーを作成
　　→カテゴリーアーカイブディレクトリが「_」になる。
とりあえず見つけたのはこの3つです。 原因を追究しようと思ったのですが、MTのソースは膨大すぎて解読する気にならないので以下の方法で回避させました。 メインメニュー>Weblog名>ウェブログの設定>アーカイブの設定画面に行き。カテゴリーのアーカイブ・ファイルのテンプレート部分をこのように設定。 
<$MTCategoryID dirify="1"$>/index.html
これで完了。カテゴリーアーカイブ名はカテゴリーIDになります。
もしかするとこの珍現象はもしかすると最新のバージョンでは発生しないかもしれません。 参考までに。

October 20, 2005

フライパンで焼くもの

皆さんはフライパンでどんなものを焼きますか？ 卵？お肉？魚？それとも野菜？ 普通は食材を焼きますよね。ところが今夜僕は衝撃的なものを焼きました。こんなものを焼いたことがある経験の持ち主はそういないと確信しています。 それは・・・
ゴキブリです！！！
ヤツですよ！憎きゴキブリちゃん。10cmはあろうくらいの大物ですよ！ しかも夏場じゃなくちょっと寒くなった秋口に！
ただ、なぜゴキブリをフライパンで焼くという奇跡的な経験をすることができたかというと経緯はこうです。 
23:00
　帰宅
23:01
　スーパーで買ってきた大好きなギネスを冷蔵庫にしまうため、台所に接近。
23:02
　ガスコンロのタイルに黒い物体を発見。
　恐る恐る近づき物体の正体を確認し、超巨大なゴキブリであることが判明。
23:03～05
　彼(ゴキブリ)の処遇をどうするか検討。
　見逃してやるか、抹殺すべきか？
23:06
　抹殺することを決意。クローゼットを開けて武器を物色。
23：07
　A4番のノートと嫁が置いていったオライリー本にするか悩んだ結果。
　軽量であるA4ノートを武器にすることに決定。
23：08
　A4ノートを振りかざしゴキブリに一撃を加える。
　危険を察したゴキブリは攻撃を回避。しかし後ろ足にわずかにヒット！
23:09
　後ろ足に重症を負ったゴキブリは、ガスコンロの上においてあった。フライパン上に落下。
23:09～23:10
　フライパン上で必死に脱出を試みるがつるつるした表面と湾曲したへりにより脱出できず。
23:11
　もがいているゴキブリの姿をしばらく鑑賞し、ガスコンロのスイッチを押して火を点火。
23：11～23:12
　熱いのであろうバタバタもがくゴキブリちゃん。
23:13
　焼き上がり！仰向けになり動かなくなる。往生した模様。
　キモいのですぐにベランダから亡骸を廃棄。
23:14
　換気扇をまわして残り香を消す。

こんな感じです。 なかなかないですよ。ゴキブリをフライパンで焼くなんて。貴重な体験をしました。そしてもう二度としたくありません。
ただ、ちょっとおいしい話のネタは手に入れることができたかな。
うふふ・・・

October 16, 2005

DBI

DBがらみの案件はお手軽にできるので、これまではPHPで開発していたのですが、
Perlのすばらしさを知ってしまったわたくしは、初のPerl+MySQLの環境で開発することにしました。

PerlでDBの処理をするといえば、やはりDBIモジュール(まあ本当はClass::DBIなんだろうが敷居がたかそうだったので・・・）。

CPANのマニュアルなんかもあるのですが、O’reillyマニアなので「入門Perl DBI」を買ってサンプルソースを見ながら開発を進めています。

October 14, 2005

HTML::Template

Perlで開発をする際、必ず使っているお気に入りのCPANモジュールのひとつであるHTML::Template。
自分の中では、「結構使いこなしているぜ。」と思っていたのですがあまかったです。まだまだ奥深かった、というかCPANドキュメントをちゃんと見てなかった。
それは、入力フォームで入力された値を次の確認画面で表示させる際に、これまでは
    my $template = HTML::Template->new(filename => $html);                                        
    $template->param(key => param('key') );
    $template->param(date => param(date') );
    $template->param(text => param(text') );
こんな感じにわざわざPOSTされたデータをすべて指定してあげていたのですが、associate をつかえばもっとシンプルにできたのですね・・・ 
  my $query = new CGI;
  my $template = HTML::Template->new(filename => $html,
                                     associate => $query);
今までなんて無駄な処理を書いていたのだろう。
やはりCPANドキュメントは全部きちんと読んでおく必要があると再認識されました。

October 12, 2005

ImageMagick

とある案件でImageMagickを使って画像をぼかして表示させたいという要望があったので、ちょっとサンプルプログラムを作ってみました。
画像をリサイズしたりするのは昔やったことがあったのですが、ぼかし処理は初めてだったので、ちょっと苦戦。
以下はソース、
#!/usr/bin/perl

use Image::Magick;
use CGI qw(url_param);

$infile = "test.jpg";
$param = url_param("f");

$i = Image::Magick->new;
$i->Read($infile);
$i->Blur($param);
print "Content-type: image/gif\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
exit;
参考URL：
convertコマンドの日本語ドキュメント(サンプル画像付でわかりやすい）
　http://hashi4.civil.tohoku.ac.jp/soft/node43.html
CPANのImage::Magickのドキュメント(サンプルが少ないのでちょっとわかりづらい）
　http://search.cpan.org/~jcristy/PerlMagick-6.24/Magick.pm

October 10, 2005

Google Sitemaps

Google様にサイトの登録をして早3週間。
いまだGoogleのロボットがこのBlogを探しに来てくれません。
ちなみにYahoo Search Betaには登録し、すでに検索に引っかかるようになりました。ちょっとYahooを見直しました(でも使わないけど)。

まあ、そんな現状なので早くGoogleロボットに発見してもらいたいので、Google Sitemapsを作成してみました。

以下ソース、

 <?xml version="1.0" encoding="UTF-8"?>
 <urlset xmlns="http://www.google.com/schemas/sitemap/0.84">
 <url>
 <loc> <$MTBlogURL encode_xml="1"$> </loc>
 <priority>1.0 </priority>
 </url>
 <MTEntries lastn="9999">
 <url>
 <loc> <$MTEntryPermalink encode_xml="1"$> </loc>
 <lastmod> <$MTEntryModifiedDate utc="1" format="%Y-%m-%dT%H:%M:%SZ"$> </lastmod>
 </url>
 </MTEntries>
 </urlset>

作成後、Googleアカウントを作成しGoogleSitemapsに登録しました。結果が楽しみです。

October 08, 2005

おいしい餃子の作り方