复制代码 代码如下:

# -*- 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