perl LWP::UserAgent 设置超时

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了perl LWP::UserAgent 设置超时，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4254字，纯文字阅读大概需要7分钟。

内容图文

def arrays(req):
    print req.get_full_path()
    a=[[12,23,34],[44234,4242,5353],['a','bbb','ccc']]
    print a
    return HttpResponse(json.dumps(a), content_type="application/json")


url(r'^api/arrays/$', newview.arrays),


[root@yyjk sbin]# curl http://1.1.1.1:9000/api/arrays/
[[12, 23, 34], [44234, 4242, 5353], ["a", "bbb", "ccc"]][root@yyjk sbin]# 


use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTML::TreeBuilder::XPath;
use Encode;
use HTML::TreeBuilder;
use Data::Dumper;
use HTML::TreeBuilder::XPath;
use DBI;
use Encode;
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );;
$ua->timeout(30);
$ua->env_proxy;
my $now          = time();
$ua->agent("Mozilla/8.0");
my $cookie_jar = HTTP::Cookies->new(

    file           => 'lwp_cookies.txt',
    autosave       => 1,
    ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $response = $ua->get('http://1.1.1.1:9000/api/arrays/');

if ($response->is_success) {
    $r = $response->content;
    print $r."\n";
   }
 else {
    die $response->status_line;
};


1. 测试1,后台模拟超时

def arrays(req):
    print req.get_full_path()
    a=[[12,23,34],[44234,4242,5353],['a','bbb','ccc']]
    print a
    time.sleep(31)
    return HttpResponse(json.dumps(a), content_type="application/json")

use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTML::TreeBuilder::XPath;
use Encode;
use HTML::TreeBuilder;
use Data::Dumper;
use HTML::TreeBuilder::XPath;
use DBI;
use Encode;
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );;
$ua->timeout(30);
$ua->env_proxy;
my $now          = time();
$ua->agent("Mozilla/8.0");
my $cookie_jar = HTTP::Cookies->new(

    file           => 'lwp_cookies.txt',
    autosave       => 1,
    ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $response = $ua->get('http://1.1.1.1:9000/api/arrays/');

if ($response->is_success) {
    $r = $response->content;
    print $r."\n";
   }
 else {
    die $response->status_line;
};



[root@yyjk sbin]# time perl testtimeout.pl 
500 read timeout at testtimeout.pl line 41.

real	0m30.277s
user	0m0.212s
sys	0m0.030s
[root@yyjk sbin]# 


后台看到了 错误的管道,因为前台超时断开了
/api/arrays/
[[12, 23, 34], [44234, 4242, 5353], [u'a', u'bbb', u'ccc']]
[2018-10-13 06:12:35,987] - Broken pipe from ('1.1.1.1', 35487)


测试2 如果是地址不通
[root@yyjk sbin]# 
[root@yyjk sbin]# cat testtimeout.pl 
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTML::TreeBuilder::XPath;
use Encode;
use HTML::TreeBuilder;
use Data::Dumper;
use HTML::TreeBuilder::XPath;
use DBI;
use Encode;
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );;
$ua->timeout(30);
$ua->env_proxy;
my $now          = time();
$ua->agent("Mozilla/8.0");
my $cookie_jar = HTTP::Cookies->new(

    file           => 'lwp_cookies.txt',
    autosave       => 1,
    ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $response = $ua->get('http://10.5.100.99:5000/api/arrays/');

if ($response->is_success) {
    $r = $response->content;
    print $r."\n";
   }
 else {
    die $response->status_line;
};
[root@yyjk sbin]# user0m0.212s^C
[root@yyjk sbin]# set -o vi
[root@yyjk sbin]# time perl testtimeout.pl 
500 Can't connect to 10.5.100.99:5000 at testtimeout.pl line 41.

real	0m3.208s
user	0m0.181s
sys	0m0.020s
[root@yyjk sbin]# 

那么不能报无法连接

$ua->timeout
    $ua->timeout( $secs )
        Get/set the timeout value in seconds. The default timeout() value is
        180 seconds, i.e. 3 minutes.

        The requests is aborted if no activity on the connection to the server
        is observed for "timeout" seconds. This means that the time it takes
        for the complete transaction and the request() method to actually
        return might be longer.
		
		设置 超时时间单位毫秒 默认是180秒 
		
请求时终止了如果没有活动连接到服务器是被观察  

这以为这他花费完成实物和rquest()方法实际返回时间更长	

 

内容总结

以上是互联网集市为您收集整理的perl LWP::UserAgent 设置超时全部内容，希望文章能够帮你解决perl LWP::UserAgent 设置超时所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---