« はてなブックマーク フォーマッタ Ver.0.20をリリースします。 | メイン | mt-sukeroku2 β3公開 »

指定したアドレスからAmazon商品リンクを抽出し、再構成するPerlスクリプト

暇つぶしに書いたスクリプト。

実際問題、使い道があるのか無いのか…。でもまぁ、LWP::Simpleは取り回しが楽でいいですねってことで (^^;;

use strict;
use LWP::Simple qw($ua get);
use Jcode;

my $aid   = "hsjjp-22";
my $url   = "http://hsj.jp/junknews/";
my $max   = 10;

#$ua->proxy('http', "http://proxy.hogehoge.co.jp:8080");
my $res = get($url);
if($res){
  my $content = jcode($res)->sjis;
  my @asins;
  while($content =~ s|<a .*?href="(http://www.amazon.co.jp/.*?)".*?>||is){
    my $href = $1;
    if($href =~ s|/ASIN/([0-9A-Z]{10})||i){
      my $asin = $1;
      unless(grep(/$asin/, @asins)){
        push(@asins, $asin);
        if(scalar(@asins) >= $max){
          last;
        }
      }
    }
  }
  foreach my $asin(@asins){
    # 便宜上改行しています
    print qq(<iframe src="http://rcm-jp.amazon.co.jp/e/cm?t=${aid}&o=9&p=8
&l=as1&asins=${asin}&fc1=000000&=1&lc1=0000ff&bc1=000000&lt1=_blank
&IS2=1&f=ifr&bg1=ffffff" width="120" height="240" scrolling="no" marginwidth="0" 
marginheight="0" frameborder="0"></iframe>\n);
  }
}

で、出来たのがこれ。

トラックバック

このエントリーのトラックバックURL:
http://hsj.jp/blog/mt-tb.cgi/1232

コメントを投稿

(いままで、ここでコメントしたことがないときは、コメントを表示する前にこのブログのオーナーの承認が必要になることがあります。承認されるまではコメントは表示されません。そのときはしばらく待ってください。)

About

2005年07月08日 18:40に投稿されたエントリーのページです。

ひとつ前の投稿は「はてなブックマーク フォーマッタ Ver.0.20をリリースします。」です。

次の投稿は「mt-sukeroku2 β3公開」です。

他にも多くのエントリーがあります。メインページアーカイブページも見てください。

Powered by
Movable Type