Python 板


LINE

看了0rz.net上的perl模組,就用類似的思維寫了一個小程式當練習嚕~ 使用了httplib的模組與0rz.net互動 python在直譯環境下也可以操作物件 這個功能真的很強大! 如果沒有這個功能 就得用telnet來模擬http client 那就很心酸了... 其實大部分的code都是看別人的範例再拼揍起來的 有些地方感覺寫得有點冗 如果大家有什麼建議改進的地方都提出討論吧^^ 互相切搓求進步咩~ 目前的用法是 *.py <長網址> [,<長網址>,<長網址> ...] 會印出短網址 *.py -r <短網址> 會印出長網址 *.py -f <存放網址的檔案> #一行一個網址 可以反查多行 #!/usr/local/bin/python import httplib, urllib,re,sys from optparse import OptionParser def makeShorter(arg): #By the time i wrote the script,0rz.net won't accept # a long url which shorter than 12 characters. if len(arg) <= 12: print 'This URL is already short enough. (%s)' % arg return params = urllib.urlencode({'url':arg}) headers = {"Content-type": "application/x-www-form-urlencoded", "Accept":"text/plain"} conn = httplib.HTTPConnection("0rz.net:80") conn.request("POST","/create.php",params,headers) response = conn.getresponse() data = response.read() conn.close() #Generlly ,an url location which is longer than 13 characters is acceptable #to 0rz.net but there are still some exceptions. if data == 'This URL is already short enough.\n': print '%s (%s)' % (data[:-1] ,arg) return m = parser.search(data) if options.ispair: print '%s %s' % (m.group(1),arg) else: print m.group(1) return def makeLonger(url): encodeOnly = re.compile(r'(\w{5})') Orznet = re.compile(r'(http://)+0rz.net/(\w{5})') m = encodeOnly.match(url) m2 = Orznet.search(url) if m != None : resource = m.group(1) url2 = "http://0rz.net/$resource" elif m2 != None : resource = m2.group(2) url2 = url else: print "Invaild URL. (%s)" % url return conn = httplib.HTTPConnection("0rz.net") conn.request("GET","/%s" % resource) res = conn.getresponse() if None != res: loc = res.getheader("location") conn.close() if options.ispair: print '%s %s' % (url2,loc) else: print loc return MSG_USAGE = "usage: %prog [-p] [-l] [-f <fileName>] url1 [, url2...]" optParser = OptionParser (MSG_USAGE) optParser.add_option("-p","--pair",action="store_true",dest="ispair" , default=False,help = "make long and short url to be a pair in one lin") optParser.add_option("-f","--file", action="store", dest="fileName", help="Read long URLs from a file and make shorters.") optParser.add_option("-r","--reverse",action="store_true" ,dest="isReverse", default=False, help="Reverse the short URLs to original longers.") options,args = optParser.parse_args() if options.isReverse: for arg in args: makeLonger(arg) if options.fileName != None: f = open (options.fileName,"r") for line in f.readlines(): line = line[:-1] makeLonger(line) else: parser = re.compile(r'(http://0rz.net/\w{5})') for arg in args: makeShorter(arg) if options.fileName != None: f = open (options.fileName,"r") for line in f.readlines(): line = line[:-1] makeShorter(line) -- 希望沒有bug了不然很糗.. --



※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.91.47
1F:推 ericsk:推一個 08/25 19:39
2F:推 xcycl:可以用 urllibr 取代 httplib, 程式碼會少滿多的 .. 08/27 02:12
3F:→ xcycl:更正, urllib 08/27 02:13
4F:推 Morneau:真的可以減少很多耶 ^^ 感謝指教 ~~ 09/05 22:36
5F:→ Morneau:看來是自己笨了 XD 09/05 22:37







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:Gossiping站內搜尋

TOP