なんか
ココログ
でオンライン書店2軒でのアフィリエイトが簡単にできるようになり、しかも
@nifty Books(bk1)
のは普通のココログでも審査無しでできるということなので、
ココログ通信の記事
を読んで
早速試してみた
。
ついでに
#!/usr/bin/perl
use strict;
use LWP;
use Jcode;
my $ua=new LWP::UserAgent;
my $rq=new HTTP::Request('GET', "http://ulara.tea-nifty.com/b/");
my $re=$ua->request($rq);
if (!$re->is_success || $re->content_type !~ m(text/html)i ){
die("Request Failed...orz\n");
}
my $flag=0;
foreach(split("\n", $re->content)){
if(m(<h2>Books</h2>)){
$flag=1;
next;
}
next unless $flag;
if( m{^<li><a href="(http://nifty\.bk1\.co\.jp/cgi-bin/srch/[^"]+)"><img alt="([^"]+)" src="(http://www\.bk1\.co\.jp/bookimages/[^"]+)" /></a><br />}){
my ($url,$alt,$img)=($1,$2,$3);
$alt=jcode($alt, 'utf8')->euc();
print "LIMG $url n $img $alt\n";
}elsif(m(^</ul>$)){
last;
}
}
というスクリプトで、hnfのLIMGディレクティブを吐かせて
とか。