blog/content/post/2007-12-17-00000693.md

3.4 KiB
Raw Blame History

title author date url wordtwit_post_info categories
PerlでAmazonを使う kazu634 2007-12-17 /2007/12/17/_744/
O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:3485;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}
Perl

 id:syou6162さんのところで「Emacs上からasinを取ってくるためにスクリプトを書いてみた Seeking for my unique color.」が公開されているのを見て、自分もこういうヤツを独力で作ってみようかな…と思っています。修論で忙しいからあれですけど、現実逃避の時間ではちょっとだけチェックしていたりします。

 そしたら、「 作って学ぶ、今どきのWebサービス第5回 Amazon Webサービスを料理してみる (3/3) ITmedia エンタープライズ」というページを発見しました。Perlだと、Net::Amazonというヤツを使うと幸せになれそうです。Perl初心者の自分な訳ですが、なんとかいけるかも。。。

 今日わかったことは、Perlの「shift」は引数を指定しないと、配列@ARGVの「0番目」を意味するということでしたvia 「401 Authorization Required」)*1

 Net::Amazonの解説があるのですが、そいつを訳して公開してみようかしら(英語はできるけど、プログラミングはわからない…というのが自分の立ち位置だし)。まぁ、修論が終わってからかな。

*1ARGVって"argument value"ってことなのかな?