você sabe se a resposta foi 200 ou 206? se o header estiver invalido ou o server nao suportar, ele entrega o conteudo inteiro!
2013/5/27 Ricardo Stock <[email protected]> > ** > Voce não poderia fazer algo assim > > while ($byte = read($arquivo,$buffer,1024)) { > $byteread += $byte; > if ($byteread > $n_bytes) { > next; > } > > } > > > Ricardo Stock > www.stocksistemas.com.br > > ----- Original Message ----- > *From:* Moises Barboza <[email protected]> > *To:* [email protected] > *Sent:* Sunday, May 26, 2013 1:59 PM > *Subject:* [SP-pm] Fazer downloads usando range request > > Ola a todos! > > Por favor, eu gostaria de saber se alguem poderia me ajudar a solucionar > uma duvida que eu estou tendo num script aqui. > Eu quero saber como fazer download de um range do arquivo, eu ja testei o > script no apache e no lighttpd, porem o download sempre vem 100%. > > No exemplo abaixo eu tenho um arquivo de texto de 5000 bytes, como fazer > para baixar até a metade do arquivo. > > > use warnings; > use strict; > use LWP::UserAgent; > my $ua = LWP::UserAgent->new; > my $req = HTTP::Request->new(GET => " > http://127.0.0.1/range.txt";); > $req->header( 'Content-Range' => 'bytes 0-2500' ); > my $resp = $ua->request($req); > > > if (open(RANGE, ">copia-range.txt")) { > print RANGE $resp->{_content}; > close(RANGE); > } > > ------------------------------ > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- Saravá, Renato CRON http://www.renatocron.com/blog/ @renato_cron <http://twitter.com/#!/renato_cron>
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
