Question

我正在尝试将一些数据发布到Haskell中的服务器，而服务器端也是空的。

我正在使用Network.HTTP库来处理请求。

module Main (main) where

import Network.URI (URI (..), parseURI, uriScheme, uriPath, uriQuery, uriFragment)
import Network.HTTP
import Network.TCP as TCP

main = do
         conn <- TCP.openStream "localhost" 80
         rawResponse <- sendHTTP conn updateTest
         body <- getResponseBody rawResponse
         if body == rqBody updateTest
           then print "test passed"
           else print (body ++ " != " ++ (rqBody updateTest))

updateURI = case parseURI "http://localhost/test.php" of
                  Just u -> u

updateTest = Request { rqURI = updateURI :: URI
                     , rqMethod = POST :: RequestMethod
                     , rqHeaders = [ Header HdrContentType   "text/plain; charset=utf-8"
                                   ] :: [Header]
                     , rqBody = "Test string"
                     }

这个测试是从服务器返回空字符串作为响应主体，当我认为它应该回显“测试字符串”帖子时。

我希望复制以下功能：

curl http://localhost/test.php -d 'Test string' -H 'Content-type:text/plain; charset=utf-8'

并使用serverside test.php验证结果：

<?php
print (@file_get_contents('php://input'));

我这样做错了还是我应该尝试另一个图书馆？

Answer 1

您需要指定一个Content-Length HTTP标头，其值必须是原始发布数据的长度：

updateTest = Request { rqURI     = updateURI
                     , rqMethod  = POST
                     , rqHeaders = [ mkHeader HdrContentType "application/x-www-form-urlencoded"
                                   , mkHeader HdrContentLength "8"
                                   ]
                     , rqBody    = "raw data"
                     }

Answer 2

使用http-conduit：

{-# LANGUAGE OverloadedStrings #-}

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L

main = do
  initReq <- parseUrl "http://localhost/test.php"

  let req = (flip urlEncodedBody) initReq $
             [ ("", "Test string")
--             ,
             ]

  response <- withManager $ httpLbs req

  L.putStr $ responseBody response

在上面的示例中，"Test string"在发布之前已经过urlEncoded。

您也可以手动设置方法，内容类型和请求正文。 api与http-enumerator中的相同，一个很好的例子是： https://stackoverflow.com/a/5614946

Haskell中的HTTP POST内容

2 个答案: