Manipulação de Arquivos Orientada a Objetos

dvinciguerra

Sabemos que Perl não é uma linguagem totalmente orientada a objetos e vejo muitas pessoas dizendo que trabalhar com o paradigma orientado a objetos em Perl é complicado ou que Perl fica impossível de ser lida. A verdade é que a orientação a objetos em Perl é uma excelente prática e por muitas vezes faz com que seu código fique mais legível e organizado, fazendo com que você consiga reaproveitar seus códigos se você escrever suas aplicações da forma correta. Abaixo vou mostrar de forma breve e simples como manipular arquivos usando a classe IO::File

Por: Daniel Vinciguerra

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

santosbrc

Olá pessoal Este script usa o rsync para fazer a sincronização dos aquivos onde você definir ($to, $from) e também guarda os arquivos modificados em um diretório ($backup) separado, onde cada rodada do rsync recebe um subdiretório com a data em que foi feita. É como um backup incremental, mas com um full backup a cada rodada. Além disto há um sistema de limpeza automática. A cada backup, uma sub-rotina especial limpa os backups que tenham uma idade especificada em dias (definida em $maxAge, o padrão é 90). Tudo foi configurado de forma segura. Em caso de erro no rsync a limpeza de backup é cancelada. Se nenhum diretório de backup for definido, nenhuma função de backup será usada e assim por diante. Ele tem uma verbosidade bem chata, chega a ser uma verborragia, mas é assim porque o fiz assim para acompanhar o funcionamento do Perl. Também tem um adicional. Uso o mesmo script para fazer vários backups de várias coisas diferentes. Então ele pode ser modificado, sem grandes esforços, para receber vários comportamentos diferentes, se estiver interessado em modificações sugiro uma visita na sub-rotina Behaviour(). Sintaxe: script comportamento configurações ex: script sistema restore: restaura o sistema a partir do backup script games test: roda o rsync em modo seguro, para testes PS: eu sei que meu código é grande, sujo, tem cheiro de javascript e gosto de php ;)

Por: Bruno Rafael Santos

Script para adicionar e remover usuários no IMSPECTOR

vandocouto

Pessoal, Este script foi feito para que utiliza o Imspector como proxy de MSN. Sua função é principal é adicionar e remover usuários na lista de acl. Para que esse script funcione, será preciso alterar algumas configurações dentro do arquivo /etc/sudoers. Mão na massa então! 1 – abra o arquivo /etc/sudoers e adicione a seguinte linha abaixo: # vim /etc/sudoers apache ALL=NOPASSWD: /usr/bin/killall, /usr/sbin/imspector 2 – No diretório /var/www/cgi-bin/ crie o diretório firewall e adicione o script abaixo: # vim imspector.pl

Por: evandro matos couto

FTP – Script para adicionar e remover usuários via WEB

vandocouto

Script feito em Perl para adicionar e remover usuários de FTP.

Por: evandro matos couto

Contagem de linhas em Perl (= wc -l)

removido

Script muito tosco com 8 linhas (deve ser possível escrever isso em menos linhas), que criei enquanto estou aprendendo a programar em Perl. A partir de hoje, minha linguagem favorita número 2. A número 1 é shell script, a 3 é Tcl/Tk e a 4 é Python. Espero que gostem... inseri esta função em um script meu recente e está funcionando bacana... Escrevam assim: xx * e vejam qualquer porcaria sendo aberta e lida. Erros: ele abre diretórios e binários, o que torna sua saída pouco confiável, mas vale como exercício...

Por: Perfil removido

Usando ARGV como login

BarbaNegra

Bom galera, eu tive um enorme problema para entender ARGV porque não conseguia encontrar nenhum tutorial ou apostila mencionando o que era claramente parâmetros --', mas graças a uns "linuxer's", com muita paciência eu consegui compreender, então fiz esse script simples usando ARGV como o Login, simples mas é grandinho xD, exemplo: você se cadastra e usa .txt para guardar os dados e para logar é só iniciar novamente o script usando parâmetros para seu login, exemplo: $ perl loginargv.pl R4$T4 123456 Neste caso meu login é R4$T4 e minha senha é 123456, entenderam a jogada? __R4$T4__

Por: Jonatan Gomes