
平台论坛博客文库

› 论坛 › 程序设计 › Ruby › 貌似用ruby写出的代码比perl还要短啊。

12 / 2 页下一页

貌似用ruby写出的代码比perl还要短啊。 [复制链接]

kingwmj

家境小康

论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2011-06-08 13:09 |只看该作者 |倒序浏览

本帖最后由 kingwmj 于 2011-06-08 17:21 编辑

看了几个小程序，感觉比perl要短。
请高手用perl缩写如下代码，能更短一点吗？楼下的说原来那个太弱了，现在换了一个，据说是最小的飞信客户端，还能再小一点吗？

#!/usr/bin/ruby
# Using GPL v2
# Author:: DongYuwei(mailto:newdongyuwei@gmail.com)
# 更新部分内容应对2010年7月25日飞信升级
require 'uri'
require 'net/http'
require 'net/https'
require "socket"
require 'rexml/document'
require 'digest/md5'
require 'digest/sha1'
require "iconv"
class Fetion
def initialize(phone_num , password)
@phone_num = phone_num;
@password = password;
@domain = "fetion.com.cn";
@login_xml = '<args><device type="PC" version="0" client-version="3.5.2540" /><caps value="simple-im;im-session;temp-group;personal-group" /><events value="contact;permission;system-message;personal-group" /><user-info attributes="all" /><presence><basic value="400" desc="" /></presence></args>';
self.init
end
def init
doc = REXML::Document.new(self.get_system_config())
sipc_proxy = ""
doc.elements.each("//sipc-proxy") do |element| # using regexp should be faster
sipc_proxy = element.text
end
@SIPC = SIPC.new(sipc_proxy);
sipc_url = ""
#ssi-app-sign-in
doc.elements.each("//ssi-app-sign-in-v2") do |element|
sipc_url = element.text
end
@fetion_num = self.get_fetion_num(self.SSIAppSignIn(sipc_url))
end
def login()
request1 = sprintf("R %s SIP-C/2.0\r\nF: %s\r\nI: 1\r\nQ: 1 R\r\nL: %s\r\n\r\n",@domain, @fetion_num, @login_xml.length)
request1 = request1 + @login_xml
server_response = @SIPC.request(request1)
@nonce = server_response.scan(/nonce="(.*)"/)[0][0]
request2 = sprintf("R %s SIP-C/2.0\r\nF: %s\r\nI: 1\r\nQ: 2 R\r\nA: Digest response=\"%s\",cnonce=\"%s\"\r\nL: %s\r\n\r\n", @domain, @fetion_num, self.get_response(), @cnonce, @login_xml.length)
request2 = request2 + @login_xml
@SIPC.request(request2)
end
def send_sms(phone, sms_text)
sms_text = Iconv.iconv("UTF-8","UTF-8",sms_text)[0]
request = sprintf("M %s SIP-C/2.0\r\nF: %s\r\nI: 2\r\nQ: 1 M\r\nT: tel:%s\r\nN: SendSMS\r\nL: %s\r\n\r\n",@domain, @fetion_num, phone, sms_text.length)
request = request + sms_text
@SIPC.request(request)
end
def send_sms_to_self(sms_text)
sms_text = Iconv.iconv("UTF-8","UTF-8",sms_text)[0]
request = sprintf("M %s SIP-C/2.0\r\nF: %s\r\nI: 2\r\nQ: 1 M\r\nT: %s\r\nN: SendCatSMS\r\nL: %s\r\n\r\n",@domain, @fetion_num, @uri, sms_text.length)
request = request + sms_text
@SIPC.request(request)
end
def logout()
logout_request = sprintf("R %s SIP-C/2.0\r\nF: %s\r\nI: 1 \r\nQ: 3 R\r\nX: 0\r\n\r\n", @domain, @fetion_num)
@SIPC.request(logout_request)
end
def get_response()
@cnonce = Digest::MD5.hexdigest(rand.to_s)
key = Digest::MD5.digest(@fetion_num + ":" + @domain + ":" + @password)
h1 = Digest::MD5.hexdigest(key + ":" + @nonce + ":" + @cnonce).upcase
h2 = Digest::MD5.hexdigest("REGISTER:" + @fetion_num).upcase
return Digest::MD5.hexdigest(h1+":" + @nonce + ":" + h2).upcase
end
def get_system_config()
uri = URI.parse("http://nav.fetion.com.cn/nav/getsystemconfig.aspx")
http = Net::HTTP.new(uri.host, uri.port)
params = sprintf('<config><user mobile-no="%s" /><client type="PC" version="3.5.2540" platform="W5.1" /><servers version="0" /><service-no version="0" /><parameters version="0" /><hints version="0" /><http-applications version="0" /><client-config version="0" /></config>',@phone_num)
headers = {
'Content-Type' => 'application/x-www-form-urlencoded'
}
resp = http.post(uri.path, params, headers)
return resp.body
end
def SSIAppSignIn(url)
uri = URI.parse(url)
path = uri.path + "?mobileno=" + @phone_num + "&pwd=" + @password
http = Net::HTTP.new(uri.host,uri.port)
http.use_ssl = true
http.verify_mode = OpenSSL::SSL::VERIFY_NONE # turn off SSL warning
resp, xml = http.get(path, nil)
ok = "200"
doc = REXML::Document.new(xml)
doc.elements.each("//results") do|element|
ok = element.attribute("status-code").value
end
if ok != "200"#421 verification picture?
return self.SSIAppSignIn(url)
end
return xml
end
def get_fetion_num(xml)
@uri = ""
doc = REXML::Document.new(xml)
doc.elements.each("//results/user") do |element|
@uri = element.attribute("uri").value
end
return @uri.scan(/sip:([0-9]+)@/)[0][0]
end
end
class SIPC
def initialize(sipc_addr)
uri = sipc_addr.split(":")
@socket = TCPSocket.new(uri[0], uri[1].to_i)
end
# send SIP request
def request(sip_request)
puts sip_request
@socket.write_nonblock(sip_request)
#select read_nonblock and rescue is the key
IO.select [@socket]
res = ""
begin
while chunk = @socket.read_nonblock(4096)
res = res + chunk
end
rescue
puts "Error: #{$!}"
end
puts res
return res
end
end
#for test
if __FILE__ == $0
fetion = Fetion.new("13651368727","password")
fetion.login()
fetion.send_sms_to_self("test-ruby-fetion")
#fetion.send_sms("mobileID","any sms")
end