２ちゃんねるニュー速VIP板の全てのdatファイルを取って来てカレントディレクトリにぶちまけるお遊びRubyプログラム。全部取得するまでたぶん結構時間かかります。
〜〜〜〜〜〜〜〜〜〜
require 'net/http'
Net::HTTP.version_1_2
open("subject.txt", "w") do |subj|
Net::HTTP.start('wwwww.2ch.net', 80) {|http|
response = http.get('/news4vip/subject.txt')
subj.print response.body
}
end
open("subject.txt", "r") do |input|
while sure = input.gets
if sure =~ /(.*dat).*/
puts $1
suredat = "/news4vip/dat/"+$1
open($1, "w") do |src|
Net::HTTP.start('wwwww.2ch.net', 80) {|http|
response = http.get(suredat)
src.print response.body
}
end
end
end
end
〜〜〜〜〜〜〜〜〜〜
趣味グラムです。主な趣味は２ちゃんねるですが、何か？巷間ではキモいプログラムをキモグラムと呼ぶそうです。キモいプログラマはキモグラマです。
キモ試しでキモッ！と絶倫先生に逃げ出されるくらいまで精進します。