Script para fazer buscas no arquivo de logs do squid

moises53

Veja como é simples programar um script em perl que facilita a manipulação do arquivo de log do squid. Você poderá utilizar este script, digitando uma palavra chave ou digitando alguma expressão regular do perl.

Por: Moises

VimeoTheSapo -Baixe videos do Vimeo e do sapo

Rafaelmspc

Script que possibilita o download de videos hospedados no Vimeo.com e videos.sapo.pt. Vídeo do script em ação aqui:http://www.youtube.com/watch?v=0d9SnV5OR2Y Script usa os módulos: LWP::UserAgent; HTTP::Response; LWP::Simple qw($ua getstore head); Term::ProgressBar; Term::ANSIColor;

Por: rafaelmspc

Gmail::SendMail - Enviando emails usando gmail

dvinciguerra

Esta é uma implementação simples de uma classe para trabalhar com envios de emails utilizando como base o servidor do gmail.com. Melhore, brinque, altere, estude ou use este exemplo como preferir, contanto que mantenha a referencia e use-o para aumentar seus conhecimentos. ;) Observação: Depende do módulo Net::SMTP::TLS ( $ sudo perl -MCPAN -e "install Net::SMTP::TLS" )

Por: Daniel Vinciguerra

Burlando o "Protetor de links" INVERTIDO para download grátis

removido

Às vezes baixo uns filmes para ver no PC e nada pior e mais chato que o protetor de link. Legal, alguns são fáceis de burlar, só clicar no botão lem baixo e ok, ou copiar o link de download direto na barra de endereço ou copiar o endereço do botão ou ainda ler direto no código-fonte. Mas agora inventaram de inverter o endereço, igual aqui: http://www.baixaebr.com/Down/?url=ZCOHVV66=d?/moc.daolpuagem.www//:ptth . Dá pra ver que a URL está logo depois de "url=", mas como baixar direto se a URL está invertida? Basta copiar e colar tudo que está depois de "url=" num arquivo de texto chamado "ARQUIVO" (ou altere o e rodar esse script aqui, que reverte a URL, mostrando que é "http://www.megaupload.com/?d=66VVHOCZ" (TA-DA!). Quem quiser pode melhorar, colocando algo a mais para ler o endereço, reverter, etc. mas para meu uso de pouco volume basta. Direto na linha de comando: echo URL ou cat ARQUIVO | perl -e 'while ($line = ) { $ch = reverse $line; print $ch}' Não preciso contar que este é mais um exercício em Perl, né? E que eu não sou programador... e deve ter uns 10 jeitos mais fáceis de fazer isso rsrs.

Por: Perfil removido

Pagerank Checker

Rafaelmspc

Script simples que informa o pagerank do site solicitado, tem a opção de carregar um arquivo de texto contendo vários sites e fazer uma verificação em massa. Script usa o módulo WWW::Google::PageRank. Até.

Por: rafaelmspc

Tweetin - Poste tweets pelo terminal

danltmz

Script que te possibilita enviar tweets pelo terminal, oferecendo proteção na hora da digitação da senha (igual a senha do comando 'su' por exemplo).

Por: Danillo Souza