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 To: saopaulo-pm@pm.org 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: SaoPaulo-pm@pm.org 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: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer