K S
綾小路龍之介の素人思考

ブリコラージュ的メールマガジン一括登録解除方法

perlを使って自動的にメルマガの登録と解除を行う方法を模索したときの記録。

目次

1.1 ブリコラージュ的メールマガジン一括登録解除方法(melma!版)

1.1.1 始めに 〜melma!のサービス上の欠点〜

melma!には登録メールアドレス変更機能が装備されていません。FAQによれば、"お手数ですが、手作業で旧メールアドレスの登録を解除し、新メールアドレスで再度登録してください"とのことです。他のメールマガジンスタンドの多くがアドレス変更サービスを提供し始めているため、これだとmelma!から発行されているメールマガジンだけが古いメールアドレスに届くことになってしいます。あまりスマートなやり方とは思えませんが、後述する方法でmelma!におけるメールアドレス変更を成し遂げてみようと思います。

1.1.2 仕組みを知る 〜登録解除システム〜

最初にmelma!のメールマガジン登録解除のシステムについて説明します。melma!の場合、メールマガジンを登録するには以下のようなURLをブラウザのアドレスバーに直接書き込むことで、登録処理が完了します。http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=addまた、以下のようなURLを書き込むことで、解除処理が完了します。http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del

それぞれ、マガジンID[m00013135](何でもパソコン110番)にあなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]を登録したこと、マガジンID[m00013135](何でもパソコン110番)からあなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]を解除したこと、を意味しています。つまり、これらのURLを連続的に呼び出すことで、ほぼ自動的にメールマガジンの登録解除を行うことができます。

以上のことを踏まえると、URLを連続的に呼び出すためにダウンローダー(Irvine等)を使用し、呼び出すURLをダウンローダーに教えるためにこれらを列記したテキストファイル(URLリストファイル)を用意すればよいということがわかります。以下の説明はIrvineを使って作業を行うものとします。

1.1.3 一括登録するには 〜URLリストファイルの書式〜

例えば、マガジンIDがm00002104、m00075246、m00036324、m00027529、m00070027、m00080492、m00013135、m00051107、m00014643、の9誌にメールアドレスMAILADDRESS@MAILADDRESS.COMPを一括登録したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの登録を行います。

http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00002104&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00075246&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00036324&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00027529&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00070027&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00080492&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00051107&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00014643&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add

1.1.4 一括解除するには 〜URLリストファイルの書式〜

同様に、先程登録したマガジン9誌全ての登録を一括解除したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの解除を行います。先程の登録用URLリストとの違いは、各行の最後が、"add"から"del"に変わっている点のみです。

http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00002104&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00075246&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00036324&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00027529&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00070027&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00080492&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00013135&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00051107&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del
http://welcome.melma.com/cgi-bin/host/mailmag.pl?magid=m00014643&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=del

1.1.5 URLリストを作る 〜エディタの置換機能〜

上記のような2つのURLリストファイルを作成できれば良いのですが、問題は登録したいマガジンや削除したいマガジンの数が非常に多い場合です。1000誌ほどの一括解除や登録はURLリストを作るだけで大変です。詰まることろ、マガジンIDだけを変えて何行も同じ事を書くのですから、同じ作業はエディタ置換機能にやらせましょう。置換機能を装備したエディタは数多くありますが、ここではTeraPadを例にあげて説明していきます。

まず、以下のような登録用URLリスト、削除用URLリストのマガジンID部分だけを抜き出したファイルを作製します。以降このファイルを加工していくのでここでバックアップを作製しておくことをお勧めします。

m00002104
m00075246
m00036324
m00027529
m00070027
m00080492
m00013135
m00051107
m00014643

このテキストファイルをTeraPadの置換機能を用いてURLリストファイルにします。最初にこのファイルをTeraPadで開き、メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"&email=MAILADDRESS@MAILADDRESS.COMP&mailmag=add\n"と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以降の文字の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。このままではURLリストの半分しかできていないので、再度メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"\nhttp://welcome.melma.com/cgi-bin/host/mailmag.pl?magid="と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以前の文字の最初に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。前回同様、何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。全ての置換が終われば登録用URLリストは完成です。

同様に削除用URLリストを作製してみます。先程作製した登録用URLリストをコピーして、複製したほうをTeraPadで開きます。ここでも、メニューを、検索->置換、と移動します。検索する文字列に"add\n"、置換後の文字列に"del\n"と入力します。ここで置換後の文字列には"del"の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行の直前にある"add"にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換します。全ての置換が終われば削除用URLリストは完成です。

1.1.6 URLリストを読み込んで一括登録解除を行う 〜Irvine〜

Irvineを起動させます。ここで細かいことですが、カレントフォルダのダウンロード数をゼロにしておきます。メニューを、ファイル->インポート->URLリスト、と移動します。先程作製した登録用又は削除用URLリストを開くと、下のキューウィンドウにアドレスが表示されます。このあと、カレントフォルダのダウンロード数を1にしてダウンロード(メールマガジンの登録、解除)を開始します。カレントフォルダのダウンロード数ををやたらと多くするとサーバーに高い負荷がかかるうえ、登録解除に支障をきたす恐れもあるので、お勧めしません。1個づつにしたほうが良いと思われます。各マガジンIDに対するあなたのメールアドレスの登録や解除が始まります。

1.1.7 最後に 〜利点と使用例〜

melma!には登録メールアドレスの変更機能が無いので、この方法は旧アドレスが使えなくなる場合や、別のメールアドレスに乗り換える場合に有効です。新アドレスでの登録用URLリストと旧アドレスでのを解除用URLリストを作製しておき、最初に新アドレスの登録用URLリストを読み込んで登録を完了させ、次に旧アドレスの解除用URLリストを読み込んで解除を完了させれば、重複したメールマガジンが届くこともありません。(厳密に言えば違う。両方のURLリストを読み込んでキューリストのファイル名タブをクリックし昇順(登録用のURLが上に来る様に)にソート、この後ダウンロードを開始するのが最良。)

1.2 ブリコラージュ的メールマガジン一括登録解除方法(AMDS版)

1.2.1 始めに 〜AMDSのサービス上の欠点〜

AMDSには登録メールアドレス変更機能が装備されていません。FAQによれば、"申し訳有りませんができません。お手数ですが、ホームページから、古いアドレスを解除して、新しいアドレスを登録して下さい。"とのことです。他のメールマガジンスタンドの多くがアドレス変更サービスを提供し始めているため、これだとAMDSから発行されているメールマガジンだけが古いメールアドレスに届くことになってしいます。あまりスマートなやり方とは思えませんが、後述する方法でAMDSにおけるメールアドレス変更を成し遂げてみようと思います。

1.2.2 仕組みを知る 〜登録解除システム〜

最初にAMDSのメールマガジン登録解除のシステムについて説明します。AMDSの場合、メールマガジンを登録するには以下のようなURLをブラウザのアドレスバーに直接書き込むことで、仮登録処理が完了します。http://amds.jp/amds_sub.cgi?number=amds-3830&email=MAILADDRESS@MAILADDRESS.COMPこのあとメール受信を行い、AMDSから送信された確認メール内の以下のような登録URLをクリックすると、登録処理が完了します。http://www.amds.jp/reader_conf.cgi?id=*******&passwd=******また、以下のようなURLを書き込むことで、解除処理が完了します。http://amds.jp/amds_unsub.cgi?number=amds-3830&email=MAILADDRESS@MAILADDRESS.COMP

それぞれ、あなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]をマガジンID[amds-3830](オンナのヒトのエッチなデータ)の購読者として登録したこと、あなたのメールアドレス[MAILADDRESS@MAILADDRESS.COMP]をマガジンID[amds-3830](オンナのヒトのエッチなデータ)の購読者から解除したこと、を意味しています。つまり、これらのURLを連続的に呼び出すことで、ほぼ自動的にメールマガジンの登録解除を行うことができます。

ただしここで注意があります。本登録を行う前に大量の仮登録を行うことができないのがAMDSのシステム上の特徴です。やってみるとわかりますが、melma!と違ってAMDSの場合、大量に登録を行うと5誌目以降の仮登録は認められません。そして、最初におこなった4誌しか登録確認メールが届きません。つまり、melma!と同じ方法を使うと、ADMSのメールアドレス変更は4通ずつしかできないことになります。

以上のことを踏まえると、URLを連続的に呼び出すためにダウンローダー(Irvine等)を使用し、呼び出すURLをダウンローダーに教えるためにこれらを列記したテキストファイル(URLリストファイル)を用意すればよいということがわかります。以下の説明はIrvineを使って作業を行うものとします。

1.2.3 一括登録するには 〜URLリストファイルの書式〜

例えば、マガジンIDがamds-0001、amds-0002、amds-0003、amds-0004、amds-0005、amds-0006、amds-0007、amds-0008、amds-0009、の9誌にメールアドレスMAILADDRESS@MAILADDRESS.COMPを一括登録したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの登録を行います。

http://amds.jp/amds_sub.cgi?number=amds-0001&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0002&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0003&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0004&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0005&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0006&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0007&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0008&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_sub.cgi?number=amds-0009&email=MAILADDRESS@MAILADDRESS.COMP

1.2.4 一括解除するには 〜URLリストファイルの書式〜

同様に、先程登録したマガジン9誌全ての登録を一括解除したいとします。この場合、URLリストファイルの内容が以下の様になったものをIrvineのメニューを、ファイル->インポート->URLリスト、のように移動して、URLリストファイルを読み込めば、読み込まれた順番でメールマガジンの解除を行います。先程の登録用URLリストとの違いは、各行の最後が、"add"から"del"に変わっている点のみです。

http://amds.jp/amds_unsub.cgi?number=amds-0001&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0002&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0003&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0004&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0005&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0006&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0007&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0008&email=MAILADDRESS@MAILADDRESS.COMP
http://amds.jp/amds_unsub.cgi?number=amds-0009&email=MAILADDRESS@MAILADDRESS.COMP

1.2.5 URLリストを作る 〜エディタの置換機能〜

上記のような2つのURLリストファイルを作成できれば良いのですが、問題は登録したいマガジンや削除したいマガジンの数が非常に多い場合です。1000誌ほどの一括解除や登録はURLリストを作るだけで大変です。詰まることろ、マガジンIDだけを変えて何行も同じ事を書くのですから、同じ作業はエディタ置換機能にやらせましょう。置換機能を装備したエディタは数多くありますが、ここではTeraPadを例にあげて説明していきます。

まず、以下のような登録用URLリスト、削除用URLリストのマガジンID部分だけを抜き出したファイルを作製します。以降このファイルを加工していくのでここでバックアップを作製しておくことをお勧めします。

amds-0001
amds-0002
amds-0003
amds-0004
amds-0005
amds-0006
amds-0007
amds-0008
amds-0009

このテキストファイルをTeraPadの置換機能を用いてURLリストファイルにします。最初にこのファイルをTeraPadで開き、メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"&email=MAILADDRESS@MAILADDRESS.COMP\n"と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以降の文字の最後に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。このままではURLリストの半分しかできていないので、再度メニューを、検索->置換、と移動します。検索する文字列に"\n"(改行の意味)、置換後の文字列に"\nhttp://amds.jp/amds_sub.cgi?number="と入力します。ここで置換後の文字列にはURLリストファイルの各行のマガジンID以前の文字の最初に改行を意味する"\n"を追加することを忘れないで下さい。先頭から検索ボタンを押すと、先頭から、改行にマッチする部分(各行の最後)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。前回同様、何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換してしまいましょう。全ての置換が終われば登録用URLリストは完成です。

同様に削除用URLリストを作製してみます。先程作製した登録用URLリストをコピーして、複製したほうをTeraPadで開きます。ここでも、メニューを、検索->置換、と移動します。検索する文字列に"amds_sub.cgi"、置換後の文字列に"amds_unsub.cgi"と入力します。先頭から検索ボタンを押すと、先頭から、"amds_sub.cgi"にマッチする部分(各行1回)を検索していき、ヒットすると置換をするかどうか尋ねられるので、"はい"ボタンをクリックします。何回か確認して大丈夫そうなら、"すべて"ボタンを押して一気に置換します。全ての置換が終われば削除用URLリストは完成です。

1.2.6 URLリストを読み込んで一括登録解除を行う 〜Irvine〜

Irvineを起動させます。ここで細かいことですが、カレントフォルダのダウンロード数をゼロにしておきます。メニューを、ファイル->インポート->URLリスト、と移動します。先程作製した登録用又は削除用URLリストを開くと、下のキューウィンドウにアドレスが表示されます。このあと、カレントフォルダのダウンロード数を1にしてダウンロード(メールマガジンの登録、解除)を開始します。カレントフォルダのダウンロード数ををやたらと多くするとサーバーに高い負荷がかかるうえ、登録解除に支障をきたす恐れもあるので、お勧めしません。1個づつにしたほうが良いと思われます。各マガジンIDに対するあなたのメールアドレスの登録や解除が始まります。

1.2.7 最後に 〜利点と使用例〜

AMDSには登録メールアドレスの変更機能が無いので、この方法は旧アドレスが使えなくなる場合や、別のメールアドレスに乗り換える場合に有効です。新アドレスでの登録用URLリストと旧アドレスでのを解除用URLリストを作製しておき、最初に新アドレスの登録用URLリストを読み込んで登録を完了させ、次に旧アドレスの解除用URLリストを読み込んで解除を完了させれば、重複したメールマガジンが届くこともありません。(厳密に言えば違う。両方のURLリストを読み込んでキューリストのファイル名タブをクリックし昇順(登録用のURLが上に来る様に)にソート、この後ダウンロードを開始するのが最良。)

1.3 E-magazine http://www.emaga.com/

find "X-Kaijo: " < .\emagazine > kaijyo_find.txt

kaijyo_find.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1

sort kaijyo_find.txt > kaijyo_find_sort.txt

kaijyo_find_sort.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1

uniq kaijyo_find_sort.txt > kaijyo_find_sort_uniq.txt

kaijyo_find_sort_uniq.txtの内容

X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
X-Kaijo: http://www.emaga.com/tool/automail.cgi?code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1

sed 's|X-Kaijo: http://www.emaga.com/tool/automail.cgi?|wget --post-data="|g' kaijyo_find_sort_uniq.txt > kaijyo_find_sort_uniq_sed1.txt

kaijyo_find_sort_uniq_sed1.txtの内容

wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&e=1
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&e=1

sed 's|&e=1|&unregist=解除" http://www.emaga.com/tool/mail.cgi|g' kaijyo_find_sort_uniq_sed1.txt > kaijyo_find_sort_uniq_sed1_sed2.txt

kaijyo_find_sort_uniq_sed1_sed2.txtの内容

wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

購読

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

お試し購読

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&test=お試し購読" http://www.emaga.com/tool/mail.cgi

解除

wget --post-data="code=002543&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

まったく初めてのアカウントに移す際には最初に1誌購読をする。こうすることでE-Magazine Newsに配信登録される。これがないとほかのどのマガジンも購読できない。

連続解除用テストバッチ

path "C:\Program Files\GnuWin32\bin"
wget --post-data="code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=as001005&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=cross&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=cvqprtow&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=dorakue2&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=fgedre&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=gcap&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=lioghtd&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nihon5&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nipponn1&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=nipponn2&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=oukoku&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=uramaga&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=usurai&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi
wget --post-data="code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&unregist=解除" http://www.emaga.com/tool/mail.cgi

連続登録用テストバッチ

path "C:\Program Files\GnuWin32\bin"
wget --post-data="x=x&doui=ok&code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=as001005&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=cross&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=cvqprtow&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=dorakue2&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=fgedre&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=gcap&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=lioghtd&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nihon5&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nipponn1&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=nipponn2&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=oukoku&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=uramaga&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=usurai&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=oshaberi&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi
wget --post-data="x=x&doui=ok&code=sinri&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

1.4 ミニまぐ http://mini.mag2.com/

"http://mini.mag2.com/pc/m/M0002216.html"のようなURLの場合、これの"http://mini.mag2.com/pc/m/"の部分を、"wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id="のように置換し、この後に続くマガジンIDを残して、".html"の部分を"&PC=" http://regist.mini.mag2.com/r/servlet/Ma"のように置換します。つまり、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/;
  print;
}
close IN;

path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048769&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048718&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048746&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048744&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048723&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048751&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048750&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048693&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048792&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048724&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048741&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048795&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048760&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048735&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048069&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048029&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0047998&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0047989&PC=" http://regist.mini.mag2.com/r/servlet/Ma
wget --post-data="e=MAILADDRESS@MAILADDRESS.COMP&id=M0048072&PC=" http://regist.mini.mag2.com/r/servlet/Ma

1.5 まぐまぐ http://www.mag2.com/

"http://www.mag2.com/m/0000174250.html"のようなURLの場合、これの"http://www.mag2.com/m/"の部分を、" wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid="のように置換し、この後に続くマガジンIDを残して、".html"の部分を"" http://regist.mag2.com/reader/Magrdadd"のように置換します。つまり、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/;
  print;
}
close IN;

1.5.1 連続登録用

path "C:\Program Files\GnuWin32\bin"
path "D:\temp_prog\wget-1.10.1-bin\bin"
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000113221" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000124732" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000111878" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000115639" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000114046" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000147381" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000125212" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000130666" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000143515" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000155211" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000160227" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000090799" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000092425" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000094358" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000109411" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000099963" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000127100" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000128608" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000132309" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000156343" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000160955" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000134379" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000115691" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000095467" http://regist.mag2.com/reader/Magrdadd
wget --post-data="MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS@MAILADDRESS.COMP&reg=magazine&magid=0000113221" http://regist.mag2.com/reader/Magrdadd

C:\WINDOWS\デスクトップ>find "廃刊" .\b.txt > b-b.txt
C:\WINDOWS\デスクトップ>find /V "廃刊" .\b.txt > b-b.txt
C:\WINDOWS\デスクトップ>find /V "休刊" .\b-b.txt > b-b-b.txt

1.6 カプライト

"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.7 RanSta

"http://www.ransta.jp/backnumber_3756/"のような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/;
	print;
}
close IN;

wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3482/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_809/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_2028/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3747/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3748/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3750/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3751/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3754/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3755/
wget --post-data="procregister=dgregist&mailmag=add&email=MAILADDRESS@MAILADDRESS.COMP" http://www.ransta.jp/backnumber_3756/

1.8 AMDS http://amds.jp/

"http://amds.jp/magazine/4360.html"のようなURLの場合、"http://amds.jp/magazine/"の部分を" wget --post-data="number=amds-"に置換し、これに続くマガジンIDを残して".html"の部分を"&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.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/;
	s/(http:\/\/www.ransta.jp\/backnumber_.*)/wget --post-data=\"procregister=dgregist&mailmag=add&email=MAILADDRESS\@MAILADDRESS.COMP\" $1/;
	print;
}
close IN;

wget --post-data="number=amds-4360&email=MAILADDRESS@MAILADDRESS.COMP" http://amds.jp/amds_sub.cgi

1.9 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.10 E-magazine

"http://www.emaga.com/info/ikkou.html"のようなURLの場合、"http://www.emaga.com/info/"を"wget --post-data="x=x&doui=ok&code="に、この後に続くマガジンIDを残して".html"を"&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.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/;
	print;
}
close IN;

wget --post-data="x=x&doui=ok&code=4574&mail=MAILADDRESS@MAILADDRESS.COMP&regist=購読" http://www.emaga.com/tool/mail.cgi

1.11 すきやねん!

"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.12 メルカップ

"http://www.melcup.com/cgi-bin/magazine/magazine.cgi?mag_id=M000004401"のようなURLの場合、"http://www.melcup.com/cgi-bin/magazine/magazine.cgi?mag_id="を"wget --post-data="mag_id="に、この後に続くマガジンIDを残して"&mail_addr=MAILADDRESS@MAILADDRESS.COMP" http://www.melcup.com/cgi-bin/reader/register.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|woman).mag2.com\/m\/(.*)\.html/wget --post-data=\"MfcISAPICommand=MagRdAdd&rdemail=MAILADDRESS\@MAILADDRESS.COMP&reg=magazine&magid=$2\" 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/;
	s/http:\/\/www.melcup.com\/cgi-bin\/magazine\/magazine.cgi\?mag_id=(.*)/wget --post-data=\"mag_id=$1&mail_addr=MAILADDRESS\@MAILADDRESS.COMP\" http:\/\/www.melcup.com\/cgi-bin\/reader\/register.cgi/;
	print;
}close IN;

1.13 Author's Memorandam

Spam Mail Killer http://homepage1.nifty.com/eimei/uniq http://www.google.com/search?q=%28uniq+OR+ununiq%29+win重複行削除ソフト

etch http://www.vector.co.jp/soft/dl/win95/net/se261820.html

wget1.9 http://www.google.co.jp/search?q=post+wget有名な非対話型ネットワーク転送ソフト

IEナビトレ http://www.vector.co.jp/download/file/win95/net/ff321053.htmlIEの吐くget/post/cookieを動的に観察できるツール

サイトマップ

  1. CSS > Webサイトのレイアウトの話
  2. DVDリッピングしてaviファイルにするときの計算方法
  3. Debian > インストールメモ
  4. Memo > One Line Diary
  5. Memo > To-Doリスト
  6. Memo > iswebの自動挿入広告の文字コードに関する考察
  7. Memo > リンクとメモ
  8. Memo > 物理屋の独り言
  9. Misc > High Performance Computing(HPC)
  10. PC過去の遺物集
  11. Perl > 1行スクリプト覚書 with Active Perl
  12. Perl > Perl実験室でWeb雑考
  13. Perl > XML::TreePPでXMLサイトマップファイルを生成
  14. Perl > e.cgi のページ ProjectRotation8
  15. Perl > クエリを連想配列で受け取るスマートな方法
  16. Perl > サーバーにアップロードしたcgiのエラーチェック
  17. Perl > ブリコラージュ的 cgi
  18. Programing > プログラムの素人が不思議に思ったこと
  19. Services > Gmail Tips
  20. Services > YourFileHostダウンローダ
  21. Services > twitterはじめました。
  22. Tech > MathMLを使ってみる
  23. Tech > Windows 2000 Professional でLaTeX組版システムを使う
  24. Tech > coLinuxの導入
  25. Tech > サイトのミラーリング
  26. Terapadで作るLaTeX統合環境
  27. Tools > Opera > 設定の諸々
  28. Tools > bashのメモ
  29. Tools > lit2ptoのページ
  30. Tools > vimの設定とtips
  31. Tools > よく使う機能のメモと設定のメモ
  32. VMware > ホストOSがWindows XP Home SP2でゲストOSがVine Linux 4.1
  33. Vine > SSHの暗号化経路を経由してSambaサーバの共有ディレクトリをマウント
  34. Vine Linux > LaTeXでpdf文書作成
  35. Vine Linux > Libretto L1に載せる
  36. Vine Linux > SSH関係の諸々メモ
  37. Vine Linux > サーバを立てたときのメモ
  38. Vine Linux > ソフトウェアRAID
  39. Vine Linux > デスクトップとして使う場合に必要な設定
  40. Wanderlust > inter7でIMAP4
  41. Web Etcetera > サーバー上でファイルを直接編集することについて
  42. Web Etcetera > 検索エンジンが自分のサイトをどのように認識しているか
  43. Web Etcetera > 無料ホームページスペースの広告削除は真か偽か
  44. Winamp > StreamRipperで全自動リッピング
  45. Winamp > タスクマネージャを使って目覚まし時計
  46. Windows > robocopyでフォルダ間同期
  47. Windows > 手動でコーデックをインストールする
  48. gnuplotのプロットギャラリー
  49. rsyncでディレクトリの内容を同期する
  50. wgetのメモ
  51. ネットワーク上にメモ帳を置く
  52. ハードウェア > HDDの再利用
  53. ハードウェア > 安定で快適なマシンはハードから
  54. ブリコラージュ的メールマガジン一括登録解除方法
  55. 初めに
  56. 情報基礎演習UNIX
  57. 窓たちと正く付き合うにはショートカットキーから

コメント

Last Modified: Fri Aug 21 19:09:51 2009
Written by "AYANOKOUZI, Ryuunosuke" <i38w7i3@yahoo.co.jp> under GNU Free Documentation License.
pin
[PR]I肢ŎdӒ:lCI肢wق̊فx