我如何发送Perl中的HTTPS请求，而不LWP ::用户代理或HTTP请求::？

Question

我需要不使用LWP ::用户代理或HTTP ::请求发送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

由于打包由思南Ünür参考我能够完成我所需要的：

my $host = 'pilot-payflowpro.paypal.com';
my $port = 443;
my $sock = IO::Socket::SSL->new("$host:$port") || die $!;

my $req = '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';

print $sock "POST https://$host/ HTTPS/1.1\r\n";
print $sock "Connection: close", "\r\n";
print $sock "Host: ", $host, "\r\n";
print $sock "Content-length: ", length $req, "\r\n";
print $sock "Content-type: text/namevalue\r\n";
print $sock "X-VPS-CLIENT-TIMEOUT: 30", "\r\n";
print $sock "X-VPS-REQUEST-ID: 1249403513SNOID", "\r\n";
print $sock "X-VPS-VIT-INTEGRATION-PRODUCT: Product", "\r\n";
print $sock "X-VPS-VIT-INTEGRATION-VERSION: 4.0", "\r\n";
print $sock "X-VPS-VIT-OS-NAME: linux", "\r\n";
print $sock "X-VPS-VIT-OS-VERSION: 2.6.16-gentoo-r13", "\r\n";
print $sock "X-VPS-VIT-RUNTIME-VERSION: 5.008007", "\r\n\r\n";
print $sock $req, "\r\n\r\n";

print while <$sock>;

close $sock;

Answer 2

您是否在寻找 README.SSL ？

  

加密支持是通过获得   使用地穴:: SSLeay的或    IO ::插座:: SSL ，而这两者是   从CPAN找到。虽然的libwww-perl的有   “即插即玩”支持两个   这些模块（如v5.45的），则   推荐使用的模块   隐窝:: SSLeay的。

Answer 3

查找一个SSL库，并打开自己的窝，那么在发送数据。

我建议反对，虽然。好得多做正确经由你通过饲喂模块正确的参数，以便它会做你想要的请求中提到的模块中的一个。

Answer 4

我不知道它的智能来给予我们您的PayPal请求ID和其他数据...确切的数据被发送到服务器是不是真的与此有关;什么更重要的是错误的，当你使用LWP :: UserAgent的你所得到的类型。你前一个问题，你都拿到HTTP 500错误，这表明有一些错误的收件人，或您发送该被拒绝的数据显示。