我在这里有一个问题: 由于某种原因,当我在perl脚本中调用get request时,我只能得到一半页面。 但是,这仅在某些计算机上发生,但是在某些计算机上,它按预期返回整个页面。 请求的页面大小仅为64 kb,并且perl在Windows 7(RAM 8GB,64位OS)上运行。 我只是想知道以前是否有人看过这个问题?有什么办法解决吗? 谢谢! 这是我的代码
use strict;
use warnings;
use File::Slurp;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->default_header( 'Authorization' => 'Basic [encoded credential]' );
$ua->max_size(2000000000) ;
my $resp = $ua->get( 'url', ':content_file'=>'test.txt' );
say $resp->status_line;
my $content = read_file('test.txt');
print $content;