<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'>
Stanislaw, segui seu conselho e deu certo. MD5 e tamanho de arquivos ficaram iguais, e as musicas normais.<br><br>Obrigado.<br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: tiago.peczenyj@gmail.com<br>Date: Sun, 21 Oct 2012 18:21:37 -0200<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] print() on closed filehandle<br><br>mas isso nao explica o tamanho do video ser tão diferente...<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 class="h5"><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>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>