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