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) if resp.message == "OK" data.scan(/<a href="(.*?)"/).each do |x| puts x filename.puts x end end end
#無聊，有vbs、php、ruby版了，好像ruby比vbs快，與php不相上下。
=begin
修改一下
require 'net/http' filename= File.new('1.txt',"w+") if $*[0]==nil abort "用法示例：ruby #$0 www.sohu.com ，結果放在當前目錄1.txt" end
h = Net::HTTP.new($*[0], 80)
resp, data = h.get('/index.html', nil) if resp.message == "OK" data.scan(/<a href="(.*?)"/).each do |x| puts x filename.puts x end end
