Journaling de arquivos
Publicado por Carlos Carvalho 05/08/2004
[ Hits: 5.977 ]
Realiza Journaling de arquivos de uma pasta a outra e envia por scp.
Obs: por scp eh necessario voce criar aschaves RSA com ssh-keyten -t rsa e exporta-la ao destino.
#!/usr/bin/perl # Script que faz journaling de arquivos. # Com duas opcoes: # 1 - Copia os arquivos de um dir para outro e envia via scp para # destino remoto; # 2 - Move sobreescrevendo os arquivos de um dir para o outro. # Sobreescreve porque nesse caso os arquivos vao aumentando de tamanho # por ser base de dados. Feito para aumentar a seguranca # depois de um incidente. # Help: ./script # GNU # Carlos Carvalho <h4sh@globo.com> use strict; use File::Copy; my $dirorigem = "/etc/journal"; my $dirdestino = "/etc/journal/copiado"; my $dirremote = "/etc/journal"; my $host = "192.168.1.1"; sub COPIA1 () { opendir DIR, $dirorigem or die "diretorio nao localizado \$! \n"; while ($_ = readdir DIR) { copy("$dirorigem/$_","$dirdestino") if (-f "$dirorigem/$_"); } #system("scp $dirdestino/* $host:/$dirremote/"); closedir(DIR); } #End dub COPIA1() sub LIMPA () { opendir DIR, $dirorigem or die "diretorio nao localizado \$! \n"; while ($_ = readdir DIR) { copy("$dirorigem/$_ $dirdestino/") if (-f "$dirorigem/$_"); unlink("$dirorigem/$_"); } closedir(DIR); } #End sub LIMPA() my %commands = ( "copia" => \&COPIA1, "remove" => \&LIMPA, ); chomp(my $string = $ARGV[0]); if ($commands{$string}) {
Adiciona-Altera senhas/usuarios no sistema
Script que procura uma palavra em um arquivo.
Manipulação de Arquivos Orientada a Objetos
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (1)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (6)