如何在没有LWP :: UserAgent或HTTP :: Request的情况下在Perl中发送HTTPS请求？

Question

我需要在不使用LWP :: UserAgent或HTTP :: request的情况下发送HTTPS请求吗？这样做的另一种方法是什么？这是我需要发送的请求:

POST https://payflowpro.paypal.com/
Connection: close
Host: payflowpro.paypal.com
Content-Length: 181
Content-Type: text/namevalue
X-VPS-CLIENT-TIMEOUT: 30
X-VPS-REQUEST-ID: 1249403513SNOID
X-VPS-VIT-INTEGRATION-PRODUCT: Product
X-VPS-VIT-INTEGRATION-VERSION: 4.0
X-VPS-VIT-OS-NAME: linux
X-VPS-VIT-OS-VERSION: 2.6.16-gentoo-r13
X-VPS-VIT-RUNTIME-VERSION: 5.008007

EXPDATE[4]=1011&AMT[6]=100.01&ACCT[16]=4111111111111111&TENDER[1]=C&TAXAMT[4]=0.00&PARTNER[8]=******&PWD[9]=******&VENDOR[6]=******&USER[6]=******&TRXTYPE[1]=S&VERBOSITY=MEDIUM

Answer 1

你在寻找README.SSL吗？

通过使用Crypt :: SSLeay或 IO :: Socket :: SSL获得加密支持,这两者都可以从CPAN中找到.虽然libwww-perl对这两个模块都有"即插即用"支持(从v5.45开始),但推荐使用的模块是 Crypt :: SSLeay.

Answer 2

查找SSL库并自行打开套接字,然后发送数据.

我建议不要这样做.通过给模块提供正确的参数,通过你提到的模块之一正确地做到这一点要好得多,这样它就能完成你想要的请求.