Manipulação de Arquivos Orientada a Objetos
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
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
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
Script feito em Perl para adicionar e remover usuários de FTP.
Por: evandro matos couto
Contagem de linhas em Perl (= wc -l)
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
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
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Debian Bookworm para a versão beta Debian 13 Trixie (2)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (21)
material de assembly x64 [RESOLVIDO] (5)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba