<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'>
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 id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: tiago.peczenyj@gmail.com<br>Date: Sun, 21 Oct 2012 16:57:12 -0200<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] print() on closed filehandle<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 class="ecxgmail_quote">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 class="ecxgmail_quote" 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 class="ecxgmail_quote"><div><div class="h5">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 class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
<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
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>