WWW :: Curl :: Multi의 예가 있습니까?

Question

누군가가 WWW::Curl::Multi을 사용하는 실제적인 예가 있습니까?

Answer 1

은 지역 사회에 당신에게 통찰력을 제공하기 위해 : 내가 사용 알 결코WWW::Curl::Multi을했습니다. 압도적 인 다수는 POE::Component::Client::HTTP (ftp 및 기타 클라이언트의 경우 다른 클라이언트가 있음) 또는 Parallel::ForkManager 및 LWP으로 평행 한 http 요구를 만족시킵니다. 곱슬 곱슬 함이 좋지 않고 추가 된 다중 네트워크 기능이 좋지 않다는 것을 말하자면 실제로 다른 두 구현은 다이 더 일반적이라고 말할 수 있습니다.

나는 curl multi가 PHP 커뮤니티에 대해 훌륭하게 작동한다는 것을 인정하고 싶습니다. 그리고 나는 perl 바인딩에 대해 나쁘지 않습니다.

Answer 2

curl homepage을 사용해 보셨습니까? CPAN documentation은

이라고 말합니다.

이 모듈은 libcurl에 대한 Perl 인터페이스를 제공합니다. 독립 실행 형 모듈을위한 것이 아니므로 기본 libcurl 문서는 API 세부 정보 (http://curl.haxx.se)를 참조해야합니다. 지금 읽고있는 문서에는 Perl의 특정 세부 사항, 일부 샘플 코드 및 C API와 Perl의 차이점 만 포함되어 있습니다.

그러나, 주요 CPAN 페이지에 모두 WWW::Curl::Easy 및 WWW::Curl::Multi의 예는이 : http://search.cpan.org/perldoc?WWW::Curl#WWW::Curl::Multi

Answer 3

모듈 용 테스트 슈트는 종종 예제를 찾는 데 적합합니다.

Answer 4

Net :: Curl :: Multi 살펴보기, 지금 실험 중입니다. 최소한 www 버전이 충돌 한 곳에서 작동합니다. 나는 libcurl에서의 최신 github의 버전을 사용하고이 예제는

use Net::Curl::Multi qw(:constants); 
use Net::Curl::Easy qw(:constants); 
my $start =shift; 
my $stop =shift; 
my $usetor=1; 
my $outdir = "outtest"; 
if (! -d $outdir) 
{ 
    mkdir $outdir or die "cannot makedir " . $outdir; 
} 
my $multi = Net::Curl::Multi->new(); 

foreach my $id ($start ... $stop) 
{ 
    my $file = $outdir . "/body_$id.html"; 
    if (
    (!-f $file)  || 
    (-z $file) 
    ) 
    { 

    my $easy = Net::Curl::Easy->new(); 

    if ($usetor) 
    { 
     $easy->setopt(CURLOPT_PROXYTYPE, CURLPROXY_SOCKS4); 
     $easy->setopt(CURLOPT_PROXY,"localhost:9050"); #tor 
    } 


    $easy->setopt(CURLOPT_FOLLOWLOCATION, 1); 
    $easy->setopt(CURLOPT_TIMEOUT, 30); 
    $easy->setopt(CURLOPT_URL, 'http://www.example.com/searchform'); 

    $easy->setopt(CURLOPT_CUSTOMREQUEST,"POST"); 

    # extract these by looking at the headers 
     $easy->setopt(CURLOPT_POSTFIELDS,"ScriptManager=......&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=&SearchField=${id}&OtherField=&SomeField=&ScrollTop=&__dnnVariable=&__VIEWSTATEENCRYPTED=&ButtonName=Search"); 

    $easy->setopt(CURLOPT_WRITEFUNCTION, 
       sub { 
       my $self=shift; 
       my $data=shift; 
       my $len = length($data); 
       open BODY, ">>$file" or die "cannot open $file";    
       print BODY $data; 
       close BODY; 
       warn "Write called: for $file and $len"; 
       return $len; 
       }  
     ); 

    $multi->add_handle($easy); 
    } 
} 

my $running = 0; 
do { 
    my ($r, $w, $e) = $multi->fdset(); 
    my $timeout = $multi->timeout(); 
    select $r, $w, $e, $timeout/1000 
     if $timeout > 0; 

    $running = $multi->perform(); 
    while (my ($msg, $easy, $result) = $multi->info_read()) { 
    warn "finished $msg $easy $result"; 
     $multi->remove_handle($easy); 

     # process $easy 
    } 
} while ($running);