大家帮忙看下 anyevent http 404 code

L_WC

1. 
   

复制代码

use AnyEvent::HTTP;
use AnyEvent;
my @urls = qw(
url1
url2
);
        
    my $cv = AnyEvent->condvar;
    for my $url ( @urls ) {
        $cv->begin;
        http_get $url,  sub {
            my ($data, $headers) = @_;
                print $headers->{Status};
            $cv->end;
        }
    }
    $cv->recv




大家帮忙看下，zol的url返回404
1. 使用lwp、wget都可以正常返回页面
2. 其他url是正常返回的

btw, 没权限发url，发了几次了都发不了，很恼火，这次只好把url截图发一下了。。。对应url1  url2

laputa73

agent头没设置，或者你把?spm=634...去掉看看？

fcl21721

的确是http头没有设置

my $header = {
'Accept' =>'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8',
'Accept-Language' => 'zh-CN',
'Accept-Encoding' => 'text/html',
'User-Agent' => 'Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; .NET4.0C; .NET4.0E; InfoPath.3)',
};

my @urls = ('');
        
my $cv = AnyEvent->condvar;
for my $url ( @urls ) {
        $cv->begin;
        http_get
                $url,
                headers =>$header,
                sub  {
                        my ($data, $headers) = @_;
                        use Data:umper;
                        print Dumper($headers);
            $cv->end;
        }
    }
    $cv->recv;

sunzhiguolu

您老这积分咋搞的, 咋越弄越少啊, 遭抢劫了吗? 都已经破百了