펄 LWP 밀접한 관계를 수동으로

Question

새로운 질문 :

나는 내 펄 스크립트와 함께 다음과 같은 일을 해요 : 세션을 종료 할 수있는 방법이

use strict; 
use warnings; 
use LWP 5.64; 

my $browser = LWP::UserAgent->new(); 
$browser->credentials( 
'localhost:8080', 
'Tomcat Manager Application', 
'admin' => '123' 
); 

my $app_url = qq(http://localhost:8080/manager/list); 
my $response = $browser->get($app_url); #this starts the Tomcat Manager Application 
#do something 
#end the tomcat manager application/terminate the session 

있습니까? 내 Manager 응용 프로그램의 기본 세션 시간 초과는 30 분입니다. 내가 시도한 것은 :

my $browser = LWP::UserAgent->new(); 
$browser->conn_cache(LWP::ConnCache->new()); 

그러나 항상 새로운 세션을 엽니 다.

나는 내가 이미 응답을받은 후 세션을 종료해야하기 때문에 $browser->timeout을 변경하면 여기에 올바른 접근하지라고 생각합니다.

도움이 될 것입니다.

---

오래된 질문 :

는 LWP를 사용하여 수동으로 세션을 종료하는 방법이 있나요? 나는 다음과 같은 것을 가지고있다 :

use strict; 
use warnings; 
use LWP 5.64; 

my $app_url = 'htpp://localhost:8080/manager/list' 
my $base_url = 'http://localhost:8080' 

my $browser = LWP::UserAgent->new; 
$browser->credentials( 
'localhost:8080/manager/list', 
'Tomcat Manager Application', 
'admin' => '123' 
); 

my $response = $browser->get($base_url); #session does not remain open 
my $respuesta = $browser->get($app_url); #session remains opened 
#do some processing 
#and now close the connection 

내 스크립트를 여러 번 연속적으로 실행하고 잠시 후 서버에 열린 세션이있다.

미리 답변 해 주셔서 감사합니다.

Answer 1

당신은 당신의 연결 시간 제한을 설정할 수 있습니다 기본적으로

$browser->timeout([$secs]) 

는 제한 시간 180 초입니다. 더 작은 값을 지정할 수 있으며 연결이 더 빨리 닫힙니다.

Answer 2

이 하나의 시도 :

my $response = $browser->get($base_url); #session does not remain open 
my $respuesta = $browser->get($app_url); #session remains opened 
if($respuesta->is_success){ 
    #do some processing 
    die "OK"; 
} 
return 1;