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 class="gmail_quote">2012/10/21 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;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" target="_blank">tiago.peczenyj@gmail.com</a><br>Date: Sun, 21 Oct 2012 16:57:12 -0200<br>
To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] print() on closed filehandle<div><div class="h5"><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" target="_blank">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" target="_blank">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" target="_blank">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" target="_blank">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" target="_blank">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">http://pacman.blog.br</a><br>