[SP-pm] Fazer downloads usando range request

[Renato Santos]

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 <ricardostock at bol.com.br>

> **
> 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 <desenvolvedorperl at gmail.com>
> *To:* saopaulo-pm at 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 at 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 at pm.org
>  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>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130527/8a8bb03a/attachment-0001.html>