綾小路龍之介の素人思考

melma!(システムが変わりました)

"http://www.melma.com/backnumber_126795/"のようなURLの場合、これの頭に" wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" "を付け足します。つまり、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/;
          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/;
          print;
        }
        close IN;
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_82257/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147049/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147098/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147026/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147046/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_147112/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_33195/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_195/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.melma.com/backnumber_126795/

ソーシャルブックマーク

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

ChangeLog

  1. Posted: 2006-04-09T21:27:58+09:00
  2. Modified: 2006-04-09T10:30:15+09:00
  3. Generated: 2017-05-22T23:09:17+09:00