我履帶簡單的代碼是: #!/usr/bin/perl -w
use WWW::Scripter;
$w = new WWW::Scripter('agent' => 'myAgent');
$w->use_plugin('JavaScript');
### need to set a referrer header here ###
我使用WWW::Scripter模塊中我的Perl應用程序,我試圖找出究竟是什麼代碼是幹什麼的,哪些網頁/圖片/等它下載,什麼標題和內容,它會以什麼順序。 的代碼是這樣的: #!/usr/bin/perl -w0
use strict;
use warnings;
use LWP::Debug qw(+);
use LWP::Con
更新 在理論工作,我編輯LWP/Protocol/http.pm包括在子程序request睡眠聲明: if (!$has_content || $write_wait || $has_content > 8*1024) {
WRITE:
{
# Since this just writes out the header block it should almost