复制代码 代码如下:
# -*- coding: utf-8 -*-
import httplib
from urllib import urlencode
import re

def out(text):
p = re.compile(r'","')
m = p.split(text)
print m[0][4:].decode('UTF-8').encode('GBK')

if __name__=='__main__':
while True:
word=raw_input('Input the word you want to search:')
text=urlencode({'text':word})
h=httplib.HTTP('translate.google.cn')
h.putrequest('GET', '/translate_a/t?client=t&hl=zh-CN&sl=en&tl=zh-CN&ie=UTF-8&oe=UTF-8&'+text)
h.endheaders()
h.getreply()
f = h.getfile()
lines = f.readlines()
out(lines[0])
f.close()

haskell版

复制代码 代码如下:
module Main where

import Network.HTTP
import Text.Regex.Posix

main = do
putStrLn "Input the word you want to search:"
word <- getLine
handle <- simpleHTTP (getRequest $ "http://translate.google.cn/translate_a/t?client=t&hl=zh-CN&sl=en&tl=zh-CN&ie=UTF-8&oe=UTF-8&" ++ (text word))
content <- getResponseBody handle
let match = (content =~ "\",\""::(String,String,String))
putStrLn $ drop 4 $ first match
main

text word = urlEncodeVars [("text",word)]

first::(String,String,String)->String
first (x,_,_) = x


作者：Hevienz