<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Isso é que é sacar do assunto.<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: tiago.peczenyj@gmail.com<br>Date: Sun, 21 Oct 2012 18:45:15 -0200<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] print() on closed filehandle<br><br>um beijo pra vc também<br><br><div class="ecxgmail_quote">2012/10/21 Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com">creaktive@gmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
Assumindo que o MP3 tenha uma entropia próxima de 8 bits por byte (algo que definitivamente não vale para um arquivo .pl, por mais que nos caçoem), um arquivo de 6,16MB poderá ter cerca de 25 mil ocorrências de \x0A. Mapeando CR => CRLF, pode crescer em cerca de 50KB. Acho que 6,19MB está dentro da faixa :)<br clear="all">
<br>ABS()<div class="ecxHOEnZb"><div class="h5"><br><br>
<br><br><div class="ecxgmail_quote">2012/10/21 Tiago Peczenyj <span dir="ltr"><<a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
mas isso nao explica o tamanho do video ser tão diferente...<div><div><br><br><div class="ecxgmail_quote">2012/10/21 Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com">creaktive@gmail.com</a>></span><br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">Você usa Windows, não?<div>Neste caso, precisa dar um binmode($fh) logo após o open($fh, ...). Ou então abrir o handle como open($fh, '>:raw', 'nome.mp3').</div>
<div>O erro acontece por que o Perl do Windows substitui byte \x0A pela sequencia \x0D\x0A em arquivos "texto".</div>
<div>Em arquivo não-"texto", isso não é nada bom.<br clear="all"><br>ABS()<div><div><br><br>
<br><br><div class="ecxgmail_quote">2012/10/21 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Não ainda, vou experimentar e volto com os resultados.<br><br><div><div></div><hr>From: <a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a><br>Date: Sun, 21 Oct 2012 17:54:30 -0200<div>
<div><br>To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] print() on closed filehandle<br><br>então alguma coisa acontece durante o transporte ou o protocolo de transmissão. estou sem tempo de analisar mas vc experimento usar o wireshark?<div>
<br><div>2012/10/21 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
MD5 diferente, ate o tamanho do arquivo é diferente, baixei o original pelo FF e a musica esta normal, alem, de que tem o tamanho de 6,16MB.<br>Em contrapartida o arquivo obtido pelo script fica com 6,19MB.<br><br>Ja tentei baixar denovo, continua o mesmo problema.<br>
<div><div></div><hr>From: <a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a><br>Date: Sun, 21 Oct 2012 17:25:59 -0200<div><div><br>To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>
Subject: Re: [Rio-pm] print() on closed filehandle<br><br>analise o arquivo original e o que vc esta salvando, vc pode ter corrompido algum byte. se o md5 dos dois for igual o problema é outro, se for diferente analise o que o ffmpeg -i diz do arquivo (ele vai analisar o cabeçalho do mp3).<br>
<br><div>2012/10/21 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Realmente, um erro por falta de atenção. Agora deu certo. <br><br>Contudo, os arquivos chegam com algum problema que não sei o que é.<br><br>As musicas não tocam normalmente, elas ficam com um barulho estranho e quase não da para reconhecer a musica, é como se estivesse acelerado.<br>
<br>Será que é problemas calsado devido a forma que estou manipulando esse tipo de arquivo?<br><br><div><div></div><hr>From: <a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a><br>Date: Sun, 21 Oct 2012 16:57:12 -0200<br>
To: <a href="mailto:rio-pm@pm.org">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] print() on closed filehandle<div><div><br><br>sem falar que esta usando open com 2 argumentos. tente usar com 3 argumentos separando o modo de abrir do nome do arquivo com uma virgula ao inves de um ponto para concatenar. alias vc pode interpolar assim<div>
<br></div><div>
open my $fh,">","$nome.mp3"; </div><div><br></div><div>ou</div><div><br></div><div>open my $fh,">","${nome}.mp3";<br><br><div>On Sun, Oct 21, 2012 at 4:54 PM, Ole Peter Smith <span dir="ltr"><<a href="mailto:ole.ufg@gmail.com">ole.ufg@gmail.com</a>></span> wrote:<br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">espacos no nome do arquivo? (sempre, como letras acentuadas, abominavel...)<br>
0le<br>
Send via Android<br>
<div><div><div>On Oct 21, 2012 3:38 PM, "Aureliano Guedes" <<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>> wrote:<br>
</div></div><blockquote style="border-left:1px #ccc solid;padding-left:1ex"><div><div>
<div><div dir="ltr">
Ola monges.<br><br>Estou com problema para salvar arquivos *.mp3 recebidos via download.<br><br>Ao salvar a mensagem retornada é 'print () on closed filehandle FH at C:\User\AG\Desktop\<a href="http://mes.pl" target="_blank">mes.pl</a> line 31.'.<br>
<br>O sistema so retorna 'Invalid argument' quando uso o $!.<br><br>Então usei o autodie para ver o que me retornava:<br>"Can't open '>Thaeme e Thiago - Ai que do.mp3' for writing: at 'Invalid argument' C:\User\AG\Desktop\<a href="http://mes.pl" target="_blank">mes.pl</a> line 19."<br>
<br>Enfim, não estou entendendo o erro retornado.<br><br><a href="http://pastebin.com/qxCMLv1V" target="_blank">http://pastebin.com/qxCMLv1V</a><br><br>#!/usr/bin/env perl<br><br>use common::sense;<br>use WWW::Mechanize;<br>
use autodie;<br><br><br>sub parse {<br> my ($self) = shift;<br> $self =~ s/\s+/\+/g;<br> chomp $self;<br> print "Now --> " . $self . "\n\n";<br> return ("<a href="http://www.buscamp3.org/busca/" target="_blank">http://www.buscamp3.org/busca/</a>" . $self);<br>
}<br><br>sub gd {<br> my ($self, $name) = @_;<br> print $self . " == " . $name . "\n\n";<br> open my $fh,">". $name . ".mp3";<br> my $m = WWW::Mechanize->new();<br>
my $p = $m->get($self);<br> $p = $p->decoded_content;<br> $m->max_redirect(1);<br> my @Links = $m->links();<br> my $w = 0;<br> SWU: foreach my $link(@Links){<br> my @a = split ("/", $link->url());<br>
if ($a[1] =~ m/dl/gi){<br> print "OK!\n";<br> my $c = $m->get("<a href="http://www.buscamp3.org" target="_blank">http://www.buscamp3.org</a>" . $link->url());<br> print $fh $c->decoded_content;<br>
close $fh;<br> $w = 1;<br> }<br> last SWU if ($w == 1);<br> }<br> undef $m;<br>}<br><br><br>open IN, $ARGV[0] or die;<br><br>foreach (<IN>){<br> print "Search for: " . $_ . "\n";<br>
my $a = parse($_);<br> gd($a, $_);<br> print "\n\n";<br>}<br> </div></div>
<br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
</div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
</div>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br></div></div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br>
<br><a href="http://pacman.blog.br" target="_blank">http://pacman.blog.br</a><br>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>