Perl LWP 手动关闭连接

Question

新问题:

我正在使用我的 Perl 脚本执行以下操作:

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

有没有办法结束 session ？我的管理器应用程序的默认 session 超时是 30 分钟。我试过的是:

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

但它仍然总是打开一个新 session 。

我认为更改 $browser->timeout 在这里不是正确的方法，因为我需要在收到响应后终止 session 。

任何帮助将不胜感激。

---

老问题:

有没有办法使用 LWP 手动结束我的 session ？我有类似的东西:

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

我想连续多次运行我的脚本，一段时间后我在服务器上打开了一百万个 session 。

预先感谢您的任何回答。

Answer 1

您可以为您的连接设置超时:

$browser->timeout([$secs])

默认超时为 180 秒。您可以指定一个较小的值，连接将更快关闭。