ささやかなる実験場の開発室

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

実際問題、使い道があるのか無いのか…。でもまぁ、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);
  }
}

で、出来たのがこれ。