暇つぶしに書いたスクリプト。
実際問題、使い道があるのか無いのか…。でもまぁ、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<1=_blank &IS2=1&f=ifr&bg1=ffffff" width="120" height="240" scrolling="no" marginwidth="0" marginheight="0" frameborder="0"></iframe>\n); } }
で、出来たのがこれ。