[Rio-pm] print() on closed filehandle
Ole Peter Smith
ole.ufg em gmail.com
Domingo Outubro 21 11:54:15 PDT 2012
espacos no nome do arquivo? (sempre, como letras acentuadas, abominavel...)
0le
Send via Android
On Oct 21, 2012 3:38 PM, "Aureliano Guedes" <guedes_1000 em hotmail.com> wrote:
> Ola monges.
>
> Estou com problema para salvar arquivos *.mp3 recebidos via download.
>
> Ao salvar a mensagem retornada é 'print () on closed filehandle FH at
> C:\User\AG\Desktop\mes.pl line 31.'.
>
> O sistema so retorna 'Invalid argument' quando uso o $!.
>
> Então usei o autodie para ver o que me retornava:
> "Can't open '>Thaeme e Thiago - Ai que do.mp3' for writing: at 'Invalid
> argument' C:\User\AG\Desktop\mes.pl line 19."
>
> Enfim, não estou entendendo o erro retornado.
>
> http://pastebin.com/qxCMLv1V
>
> #!/usr/bin/env perl
>
> use common::sense;
> use WWW::Mechanize;
> use autodie;
>
>
> sub parse {
> my ($self) = shift;
> $self =~ s/\s+/\+/g;
> chomp $self;
> print "Now --> " . $self . "\n\n";
> return ("http://www.buscamp3.org/busca/" . $self);
> }
>
> sub gd {
> my ($self, $name) = @_;
> print $self . " == " . $name . "\n\n";
> open my $fh,">". $name . ".mp3";
> my $m = WWW::Mechanize->new();
> my $p = $m->get($self);
> $p = $p->decoded_content;
> $m->max_redirect(1);
> my @Links = $m->links();
> my $w = 0;
> SWU: foreach my $link(@Links){
> my @a = split ("/", $link->url());
> if ($a[1] =~ m/dl/gi){
> print "OK!\n";
> my $c = $m->get("http://www.buscamp3.org" . $link->url());
> print $fh $c->decoded_content;
> close $fh;
> $w = 1;
> }
> last SWU if ($w == 1);
> }
> undef $m;
> }
>
>
> open IN, $ARGV[0] or die;
>
> foreach (<IN>){
> print "Search for: " . $_ . "\n";
> my $a = parse($_);
> gd($a, $_);
> print "\n\n";
> }
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20121021/3384b375/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm