<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18702">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Voce não poderia fazer algo assim</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>while ($byte = read($arquivo,$buffer,1024))
{<BR>
$byteread +=
$byte;<BR>
if ($byteread > $n_bytes) {</FONT></DIV>
<DIV><FONT size=2 face=Arial>
next;</FONT></DIV>
<DIV><FONT size=2 face=Arial>
}</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2
face=Arial>
}</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV>Ricardo Stock<BR><A
href="http://www.stocksistemas.com.br">www.stocksistemas.com.br</A></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=desenvolvedorperl@gmail.com
href="mailto:desenvolvedorperl@gmail.com">Moises Barboza</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=saopaulo-pm@pm.org
href="mailto:saopaulo-pm@pm.org">saopaulo-pm@pm.org</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Sunday, May 26, 2013 1:59 PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [SP-pm] Fazer downloads usando
range request</DIV>
<DIV><BR></DIV>
<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>
<P>
<HR>
<P></P>=begin disclaimer<BR> Sao Paulo Perl Mongers:
http://sao-paulo.pm.org/<BR> SaoPaulo-pm mailing list:
SaoPaulo-pm@pm.org<BR> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm><BR>=end
disclaimer<BR></BLOCKQUOTE></BODY></HTML>