のみまくし日記

Amazon Web Service

朝、電車のなかで思い立って、Amazon Web Serviceのデベロッパートークンを申し込んでみました。

んで、朝から仕事もせず SOAP::Lite でごにょごにょ。とりあえず、 SOAP::Lite の使い方を。

ようは、単に Amazon でものを買うとき、自分のアソシエイトID経由で買えばちょっとお得かな？とか思ったので、ウィッシュリストリストを取得して自分のアソシエイトIDを付けてみようと思ったわけで。

LWPでHTMLをパースしてももちろんできるだけどけど、Web Serviceを使った方がカッコイイから(BERO)

っと。今日は遊んでいるほどの余裕は無かったのでした。

適当に作ってみました。よくわからなかったのですが、ここらへんを参考にしながら後はカンで、実装。

ちなみにこれ、このまま使うとデベロッパートークンばれちゃうのでURLとかは操作しないと行けないですが、とりあえず動いたので仕事に戻ります。

#!/usr/local/bin/perl

use strict;

use Template;
use SOAP::Lite;

my $data = SOAP::Data->value(
    SOAP::Data->name(wishlist_id => 'WISHLIST_ID'),
    SOAP::Data->name(tag         => 'ASSOCIATE_ID'),
    SOAP::Data->name(devtag      => 'DEVELOPER_TOKEN'),
    SOAP::Data->name(page        => 1),
    SOAP::Data->name(type        => 'lite'),
    SOAP::Data->name(locale      => 'jp'),
    SOAP::Data->name(format      => 'xml'),
    SOAP::Data->name(version     => '1.0'),
);

my $wsdl = 'http://soap.amazon.com/schemas3/AmazonWebServices.wsdl';
my $s = SOAP::Lite->service($wsdl);

my $result = $s->WishlistSearchRequest (
    SOAP::Data->name('WishlistSearchRequest')
        ->type('WishlistRequest')
        ->value(\$data)
);

my $tt = Template->new();
my $output;

$tt->process(\*DATA, {result => $result}, \$output);
print "Content-Type: text/html;\n\n";
print $output;

__DATA__
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <title>MyWishList</title>
</head>
<body>
<h1>MyWishList</h1>

<ul>
[% FOREACH detail = result.Details %]
    <li>
        <a href="[% detail.Url %]">
            <img src="[% detail.ImageUrlSmall %]"/>
            [% detail.ProductName %]
        </a>
    </li>
[% END  %]
</ul>

</body>
</html>

posted by takefumi | この日記へリンク | コメント(2) | トラックバック(0)

Google Hacks

今日は遊んでいる余裕はないっつーのに、Google Hacks 届いてしまった。すごく読みたい。遊びたい。けど忙しいのだ。我慢。

そう言えば、最近?リニューアルした、マクロメディアのサイトの検索が Powered by Google になってるけど、これってやっぱり Google API つかっているのかな?

Amazon Hacks

Amazon Hacksも読みたい。日本語訳は出ないのかなぁ。

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

ウォーターボーイズ - サントラCD

ウォーターボーイズ - サントラCDも一緒に届きました♪

これ、買う前から思ってたんだけど、これ買ってしまうと、最終回でのシンクロの曲目がわかってしまうんだよな…最終回まで買うの止めておけばよかったかな。ま、買ってしまったものはしょうがない。

ウォーターボーイズはあと2回。毎回毎回爽快です。映画版よりもテレビ版の方が好き♪

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

I can fly! Yes, You can fly!!(2)

I can fly! Yes, You can fly!!

写真追加しました。

あと、今日はおうちでビデオ撮影したひとの上映会です。

とか思ったら

ビデオ持ってる人が仕事で来られない罠。

それならそれで、だらだらしゃべる。気がつけば3時だし、ねよ。

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

Cross-Browser Rich Text Editor

おー、これ良いですね。これからは管理画面はこれを使うシカ!!

via: http://blog.bulknews.net/mt/archives/000279.html

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

Samorost

フラッシュによるパズルアドベンチャーゲーム。自分の星が他の星と衝
突しそうなので、なんとかするのだ。いろいろクリックすると次の場面
に進めます。なかなか良い出来で、楽しめます

via: http://nais.to/~yto/clog/2003-08.html#2003-08-25-1

すごい綺麗。でも、オレ、こーいうゲーム。好きなんだけど、つまるとすぐ飽きてしまう。クリア出来ん。

そう言えばミストもそうだった。

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

むむむ

いろいろ、いっぱいいっぱい（含む遊び）で放置していたオレも悪いのだけど20時ごろに、今日中ってのもひどくね?

posted by takefumi | この日記へリンク | コメント(0) | トラックバック(0)

のみまくし日記

2003年08月27日 (水)

Amazon Web Service

Google Hacks

ウォーターボーイズ - サントラCD

I can fly! Yes, You can fly!!(2)

Cross-Browser Rich Text Editor

Samorost

むむむ