<div dir="ltr"><div><div><div>Ola a todos!<br><br></div>Por favor, eu gostaria de saber se alguem poderia me ajudar a solucionar uma duvida que eu estou tendo num script aqui.<br></div>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%.<br>
<br></div>No exemplo abaixo eu tenho um arquivo de texto de 5000 bytes, como fazer para baixar até a metade do arquivo.<br><div><div><div><div><br><br>use warnings;<br>use strict;<br>use LWP::UserAgent;<br>my $ua = LWP::UserAgent->new;<br>
my $req = HTTP::Request->new(GET => "<a href="http://127.0.0.1/range.txt">http://127.0.0.1/range.txt</a>");<br> $req->header( 'Content-Range' => 'bytes 0-2500' );<br>
my $resp = $ua->request($req);<br> <br> <br> if (open(RANGE, ">copia-range.txt")) {<br> print RANGE $resp->{_content};<br>
close(RANGE);<br> }<br></div></div></div></div></div>