LWP::UserAgent獲取網(wǎng)頁頭信息報(bào)out of memory，求指導(dǎo)

zhuochong

my $ua = new LWP::UserAgent;
my $url="xxx";  #這個(gè)是一個(gè)URL，發(fā)帖提示不能寫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的文件比較小的時(shí)候都能正常讀取，后面到某個(gè)URL的文件大小超過500M就會(huì)報(bào)out of memory，
我只是想獲取頭信息的文件名，怎么感覺header是把這個(gè)文件臨時(shí)存儲(chǔ)下來才能讀�。�？

是不是有更好的實(shí)現(xiàn)方式？求高手指導(dǎo)，萬分感謝，在線等！��！

上面貼的這個(gè)是我單獨(dú)讀取那個(gè)URL文件比較大的，能夠正常打印，批量處理的時(shí)候前面URL的文件小的打印正常，每次都在這個(gè)超過500M的報(bào)out of memory。。

zhuochong

求高手指導(dǎo)，謝謝！

zhuochong

在線等指導(dǎo)

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));