[Rio-pm] ajude o "firefox download day" com Perl!

[Solli Honorio]

então deve ser a telefônica boicotando o FireFox Day :( !!!

Solli M. Honório

2008/6/17 breno <breno em rio.pm.org>:

> Ué... por enquanto eu estou assim:
>
> $ perl get_firefox3.pl
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> erro :(
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> sucesso!
> ...
>
>
> []s
>
> -b
>
> 2008/6/17 Solli Honorio <shonorio em gmail.com>:
> > Isto se a infra deixar por que não está facil baixar nada da firefox hoje
> :)
> > !!!
> >
> > Solli M. Honório
> >
> > 2008/6/17 breno <breno em rio.pm.org>:
> >>
> >> Pessoal,
> >>
> >> como vcs talvez saibam, hoje saiu o Firefox 3!!! E a Mozilla
> >> Foundation está fazendo um estardalhaço com o evento, querendo entrar
> >> para o Guinness ("Livro dos Recordes") como o maior número de
> >> downloads de um único software em 24h.
> >>
> >> Para quem quiser dar "uma maozinha" a eles, segue abaixo um pequeno
> >> programa que fica baixando o arquivo ad-eternun (leia-se até que vcs
> >> deliberadamente interrompam o programa com ctrl-c ou coisa que o
> >> valha):
> >>
> >> -------------------------8<-------------------------
> >> #!/usr/bin/perl
> >> use LWP::Simple;
> >>
> >> while (1) {
> >>    if (defined
> >>
> >> (get('
> http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR')<http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27%29>
> ))
> >> {
> >>        print "sucesso!\n";
> >>    }
> >>    else {
> >>        print "erro :(\n";
> >>    }
> >> }
> >> -------------------------8<-------------------------
> >>
> >> Abaixo, versão para golfe, sem mensagens de sucesso ou falha (usando
> >> LWP::Simples. Alguém se habilita a fazer sem módulos?):
> >>
> >> -------------------------8<-------------------------
> >> use LWP::Simple;
> >> while (1)
> >> {get('
> http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR'<http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27>
> )}
> >> -------------------------8<-------------------------
> >>
> >> Note que ambas as versões acima do programa ficam baixando o programa
> >> eternamente mas descartam todo o conteúdo baixado. Se vcs quiserem de
> >> fato ter uma cópia do firefox 3 em disco, é preciso escrever o
> >> conteúdo baixado no sistema. Segue modificação em cima do código acima
> >> que continua baixando ad-eternum, mas se vc interromper o programa
> >> haverá um arquivo "ff3.exe" no diretório em que o programa foi
> >> executado, pronto para instalação!
> >>
> >> -------------------------8<-------------------------
> >> #!/usr/bin/perl
> >> use LWP::Simple;
> >>
> >> while (1) {
> >>    if (defined (my $arq =
> >>
> >> get('
> http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR')<http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27%29>
> ))
> >> {
> >>        print "sucesso!\n";
> >>        open my $fh, '>', 'ff3.exe' or die "erro abrindo arquivo: $!\n";
> >>        binmode ($fh);
> >>        print $fh $arq;
> >>        close $fh;
> >>    }
> >>    else {
> >>        print "erro :(\n";
> >>    }
> >> }
> >> -------------------------8<-------------------------
> >>
> >> Bom, pessoal, é isso. O programa pode ser separado em
> >> threads/processos ou simplesmente executado várias vezes caso vcs
> >> estejam com vontade de ajudar mesmo (ou não fazer mais nada na
> >> Internet, pq sua banda será bastante consumida nesse caso).
> >>
> >> De qq forma, e mesmo que vc não esteja absolutamente interessado em
> >> ajudá-los com o "download day" (que vai até amanhã à tarde para nós),
> >> o Firefox continua sendo um excelente navegador Web e a versão 3
> >> possui uma série de melhorias e avanços interessantes, valendo a
> >> olhada - mesmo que vcs decidam baixar só outro dia :-)
> >>
> >> []s
> >>
> >> -b
> >> _______________________________________________
> >> Rio-pm mailing list
> >> Rio-pm em pm.org
> >> http://mail.pm.org/mailman/listinfo/rio-pm
> >
> >
> >
> > --
> > "o animal satisfeito dorme". - Guimarães Rosa
> > _______________________________________________
> > Rio-pm mailing list
> > Rio-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/rio-pm
> >
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
"o animal satisfeito dorme". - Guimarães Rosa
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20080617/6f965a7f/attachment-0001.html