Question

我试图减轻我的用户LWP :: UA代码的一部分使用SSL层访问Rest API 我试图用裸IO :: Socket :: SSL模块实现相同的结果它在第一次调用时效果很好：

    my $SSLSocket = IO::Socket::SSL->new(
                PeerHost => $server,
                PeerPort => "https");
    print $SSLSocket "GET /restapi/json/v1/resources?AUTHTOKEN=$token HTTP/1.0\r\n\r\n";
    while(<$SSLSocket>){
           $response = $_;
     }
    $resources = $json->decode($response);

但是当我试图重复使用这个套接字时，我没有得到任何信息

my $SSLSocket = IO::Socket::SSL->new(
                    PeerHost => $server,
                    PeerPort => "https");
print $SSLSocket "GET /restapi/json/v1/resources?AUTHTOKEN=$token HTTP/1.0\r\n\r\n";
 while(<$SSLSocket>){
        $response = $_;
        }
 $resources = $json->decode($response);
 print $SSLSocket ,"GET /restapi/json/v1/resources/3138/accounts?AUTHTOKEN=$token HTTP/1.0\r\n\r\n";
 while(<$SSLSocket >){
     $response = $_;
  }
 close($SSLSocket );

my $accounts = $json->decode($response);

第二次读取为空。由于我不能使用recv或send方法，我有点迷失了。有没有办法不在每个请求上打开一个新的SSL套接字？
谢谢你的答案。

重用Perl IO :: socket :: ssl客户端

0 个答案: