<p>espacos no nome do arquivo? (sempre, como letras acentuadas, abominavel...)</p>
<p>0le</p>
<p>Send via Android</p>
<div class="gmail_quote">On Oct 21, 2012 3:38 PM, "Aureliano Guedes" <<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>> wrote:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">



<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>_______________________________________________<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>