是否可以使用Perl HTTP :: Async模塊讀取標題？

Question

要優化我的Perl應用程序我需要使用異步 HTTP請求，所以我可以在HTTP響應完成後處理其他操作。所以我相信我唯一的選擇是使用HTTP::Async模塊。這對簡單的請求工作正常，但我需要從一個響應中捕獲cookie頭，並將其與下一個響應發送，所以我需要閱讀標頭。我的代碼是：

   ... 

      $async->add($request); 
      while ($response = $async->wait_for_next_response) 
      { 
       threads->yield(); yield(); 
      } 
      $cookie = $response->header('Set-Cookie'); 
      $cookie =~ s/;.*$//; 
      $request->header('Cookie' => $cookie); 

      ... 

，但它不工作，因爲它與一個錯誤結束未定義的值無法調用「頭」。顯然$response是undef。如何在$response獲得undef之前獲得標題？

Answer 1

while ($response = $async->wait_for_next_response) 
{ 
    threads->yield(); yield(); 
} 

保證沒有完成，直到$response爲假。唯一的假值wait_for_next_response將返回undef。您需要提取循環內的cookie，或緩存循環內的最後一個良好響應。

喜歡的東西

my $last_response; 
while ($response = $async->wait_for_next_response) 
{ 
    $last_response = $response; 
    threads->yield(); yield(); 
} 

應該工作，雖然我不知道你所需要的循環可言。沒有完整的程序很難說。