綾小路龍之介の素人思考

カプライト

"http://cgi.kapu.biglobe.ne.jp/m/10625.html" のような URL の場合、これの "http://cgi.kapu.biglobe.ne.jp/m/" の部分を、" wget --post-data="mgid=" のように置換し、この後に続くマガジン ID を残して、".html" の部分を "&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi" のように置換します。つまり、Perl スクリプト的にはこんな感じです。

open IN,"mag.txt";
while(<IN>){
  s/http:\/\/mini.mag2.com\/pc\/m\/(.*)\.html/wget --post-data=\"e=MAILADDRESS\@MAILADDRESS.COMP&id=$1&PC=\" http:\/\/regist.mini.mag2.com\/r\/servlet\/Ma/;
  s/http:\/\/www.mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$1\" http:\/\/regist.mag2.com\/reader\/Magrdadd/;
  s/http:\/\/cgi.kapu.biglobe.ne.jp\/m\/(.*)\.html/wget --post-data=\"mgid=$1&e_mail=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/cgi.kapu.biglobe.ne.jp\/cgi-bin\/mlmg_setma.cgi/;
  print;
}
close IN;
wget --post-data="mgid=11165&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11196&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11197&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=11199&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi
wget --post-data="mgid=10625&e_mail=MAILADDRESS@MAILADDRESS.COMP" http://cgi.kapu.biglobe.ne.jp/cgi-bin/mlmg_setma.cgi

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2006-04-14T04:42:44+09:00
  2. Modified: 2006-04-14T10:31:43+09:00
  3. Generated: 2017-01-29T23:09:16+09:00