LWP::UserAgent获取网页头信息报out of memory，求指导

zhuochong

my $ua = new LWP::UserAgent;
my $url="xxx";  #这个是一个URL，发帖提示不能写URL链接，这里用XXX代替
my $res = $ua->request(new HTTP::Request(GET=>$url));
my $tmp_name=($res->header_field_names)[8];
my $filename=$res->header($tmp_name);
print $filename,"\n";

批量处理读取URL的头信息，前面处理URL的文件比较小的时候都能正常读取，后面到某个URL的文件大小超过500M就会报out of memory，
我只是想获取头信息的文件名，怎么感觉header是把这个文件临时存储下来才能读取？？

是不是有更好的实现方式？求高手指导，万分感谢，在线等！！！

上面贴的这个是我单独读取那个URL文件比较大的，能够正常打印，批量处理的时候前面URL的文件小的打印正常，每次都在这个超过500M的报out of memory。。

zhuochong

求高手指导，谢谢！

zhuochong

在线等指导

py

试试http://search.cpan.org/~mlehmann/AnyEvent-HTTP-2.21/HTTP.pm的on_header callback

as710054

my $res = $ua->request(new HTTP::Request(GET=>$url));  修改为 my $res = $ua->request(new HTTP::Request(HEAD=>$url));