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: [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
