[SP-pm] Fazer downloads usando range request

[Ricardo Stock]

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 em 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 em pm.org
   L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
  =end disclaimer
-------------- Pr?xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130527/eeb180af/attachment.html>