綾小路龍之介の素人思考

すきやねん!

"http://www.sukiya-nen.com/sys/m.cgi?id=goku"のようなURLの場合、"http://www.sukiya-nen.com/sys/m.cgi?id="を"wget --post-data="namae=a&id="に、この後に続くマガジンIDを残して"&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi"と続けます。つまり、Perlスクリプト的にはこんな感じです。

print<< 'OUT';
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
OUT
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/;
        s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/amds.jp\/magazine\/(.*)\.html/wget --post-data=\"number=amds-$1&email=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/amds.jp\/amds_sub.cgi/;
        s/(http:\/\/www.melma.com\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
        s/http:\/\/www.emaga.com\/info\/(.*)\.html/wget --post-data=\"x=x&doui=ok&code=$1&mail=MAILADDRESS\@MAILADDRESS.COMP&regist=購読\" http:\/\/www.emaga.com\/tool\/mail.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=registvalue\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        s/http:\/\/www.sukiya\-nen.com\/sys\/m.cgi\?id=(.*)/wget --post-data=\"namae=a&id=$1&email=MAILADDRESS\@MAILADDRESS.COMP&mode=regist\" http:\/\/www.sukiya-nen.com\/sys\/maga_reg.cgi/;
        print;
}
close IN;
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="namae=a&id=OUEN&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=ohgon&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=id01&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=goku&email=MAILADDRESS@MAILADDRESS.COMP&mode=registvalue" http://www.sukiya-nen.com/sys/maga_reg.cgi
path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="namae=a&id=OUEN&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=ohgon&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=id01&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi
wget --post-data="namae=a&id=goku&email=MAILADDRESS@MAILADDRESS.COMP&mode=regist" http://www.sukiya-nen.com/sys/maga_reg.cgi

ソーシャルブックマーク

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

ChangeLog

  1. Posted: 2006-04-07T03:32:22+09:00
  2. Modified: 2006-04-07T10:29:20+09:00
  3. Generated: 2017-05-22T23:09:17+09:00