#scanweb.rb

#用法rubyscanweb.rbwww.jb51.net将当前结果保存在c:1.txt

require'net/http'

filename=File.new('c:1.txt',"w+")

if$*[0]==nil

puts"hehe,没有输入网址"

else

h=Net::HTTP.new($*[0],80)

resp,data=h.get('/index.html',nil)

ifresp.message=="OK"

data.scan(/<ahref="(.*?)"/).eachdo|x|

putsx

filename.putsx

end

end

end

#无聊，有vbs、php、ruby版了，好像ruby比vbs快，与php不相上下。

=begin

修改一下

require'net/http'

filename=File.new('1.txt',"w+")

if$*[0]==nil

abort"用法示例：ruby#$0www.sohu.com，结果放在当前目录1.txt"

end

h=Net::HTTP.new($*[0],80)

resp,data=h.get('/index.html',nil)

ifresp.message=="OK"

data.scan(/<ahref="(.*?)"/).eachdo|x|

putsx

filename.putsx

end

end

=end