March 28, 2004
WWW::Mechanize を使って bk1 の注文履歴を取得するスクリプトを作ってみました。取得した書籍リストは、トップページに Now Reading として貼り付けてます。
■bk1nowreading.pl
#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use HTML::Template;
use Jcode;
my $email = '';
my $password = '';
my $last = 10;
my $url = 'http://www.bk1.co.jp/';
my $mech = WWW::Mechanize->new();
$mech->agent_alias('Windows IE 6');
$mech->get($url);
$mech->follow_link(url_regex => qr/login\.cgi/);
$mech->form_name('FormName');
$mech->field(user_e_mail => $email);
$mech->field(password => $password);
$mech->click();
my @items;
foreach my $link ($mech->find_all_links(url_regex => qr/srch_detail\.cgi/)) {
my ($bibid) = $link->url =~ /bibid=(\d+)/;
push @items, { bibid => $bibid, text => $link->text };
last if @items >= $last;
}
my $tmpl = HTML::Template->new(filehandle => *DATA);
$tmpl->param(items => \@items);
print Jcode->new($tmpl->output)->euc;
__DATA__
<TMPL_LOOP items>
<a href="http://www.bk1.co.jp/cgi-bin/srch/srch_detail.cgi?
aid=&bibid=<TMPL_VAR bibid>" target="_blank">
<TMPL_VAR text></a><br />
</TMPL_LOOP>
■実行方法
$email と $password を設定して
% ./bk1nowreading.pl > nowreading.html
cron で定期的に実行して nowreading.html を SSI でトップページに取り込んで表示させています。
March 18, 2004
今までサイトの作成といえば、HTML は Emacs + yahtml で手書きコーディング、画像は Gimp で加工して作っていたのですが、商用ソフトも使ってみようかと Studio MX 2004 w/Flash MX Pro. を購入しました。
ものが高価なだけに買うのに勇気がいりました。
購入のきっかけは、Dreamweaver が CSS に対応した(らしい)というのと、ページのレイアウトを手っ取り早く作りたいという欲求が強くなった、といったところです。
あと、福井システムリサーチ の福井さんが書かれている「システムはオブジェクト指向 Ruby & Flash」も興味深くて、Lightweight な言語(自分の場合はたぶん Perl になると思うけど)と Flash を組合せて、MVC モデルの View に Flash を使うのもいいかなと、淡い期待も持ってます。
インストールを終えて、ちょこちょこっと触った感じでは、いろいろ出来そうな雰囲気ですが、今は右も左も分からない状態なので、本を買いました。
標準Ｗｅｂデザイン講座ＤＲＥＡＭＷＥＡＶＥＲ ＭＸ ２００４
標準Ｗｅｂデザイン講座ＦＩＲＥＷＯＲＫＳ ＭＸ ２００４
途中で挫折するかもしれないので、今はこの 2 冊だけ（笑）
パラパラっと見た感じでは、分かりやすそうでした。
このシリーズは、他にも
標準Ｗｅｂデザイン講座ＦＬＡＳＨ ＭＸ ２００４
標準Ｗｅｂデザイン講座ＡｃｔｉｏｎＳｃｒｉｐｔ ｆｏｒ ＦＬＡＳＨ ＭＸ ２００４
が出ているようです。
■関連メモ
* Dreamweaver で Movable Type！
March 13, 2004
衝動買いしてしまった中古の富士通 FMR-280P3 と 21 インチモニター(計 9,000 円)でしたが、ほとんど使っていないので、中古品買取りのお店で引き取ってもらいました。モニター重すぎ。その他、ラジカセとアンプ内蔵スピーカーも一緒で、買取り価格は 500 円なり。そして、帰りにお好み焼きと空揚げを買って、昼食代へと姿を変えることに。
