move.pl
Publicado por Carlos Carvalho 14/07/2004
[ Hits: 5.297 ]
Script em Perl que move arquivos acima de 1Mb para outro diretorio. Esse script foi feito por mim para uma funcionalidade especifica ,
no entanto, ele pode ser usado como um exemplo para seu uso.
#!/usr/bin/perl # Script que move arquivos maiores que 1 Mb # para outro diretorio. # # move.pl # carlos_lnx@ibest.com.br # use strict; # Verifica se PID existe: if (-e "/tmp/PID-longa") { my $pidi = `/bin/cat /tmp/PID-longa`; print("O programa nao pode ser executado, ja esta rodando com a PID = $pidi\n"); print("Deseja matar o processo numero $pidi ? [s/n] "); my $proc = <STDIN>; chop $proc; if ($proc eq "s") { system("/bin/kill -9 $pidi"); unlink("/tmp/PID-longa"); print("Killed!\n"); } exit(1); } # Vai pra background: print ("Estou em background...\n"); fork and exit; # Cria arquivo com a PID do processo para futura verificacao: my $child = $$; open(FIL, ">/tmp/PID-longa") or die "NAO FOI POSSIVEL ESCREVER NO DIRETORIO /tmp, $!"; print(FIL "$child"); close(FIL); while (true) { # Recebe listagem de /u1/titan-prt/prt_laser_1: my @arquivos = `/bin/ls /u1/titan-prt/prt_laser_1` ; foreach (@arquivos) { # Retira ultimo caractere (enter): chop $_; # Verifica tamanho do arquivo com precisao: my $size = -s "/u1/titan-prt/prt_laser_1/$_"; # Move arquivo caso ele seja >= 1048576, 1 MegaByte senao imprime: if ($size >= 1048576) { system("/bin/mv /u1/titan-prt/prt_laser_1/$_ /u1/titan-prt/prt_longa/") } else { system("/etc/lprint /u1/titan-prt/prt_laser_1/$_"); unlink("/u1/titan-prt/prt_laser_1/$_") or die "$!"; } } # Dorme por um segundo: sleep(1); } #EOF
Inserindo sites em Lista do Squid
Script para adicionar sites ao Squid
Eliminando caracteres indesejados
Script que remove palavras de um arquivo.
script para localizar conteudo de arquivo
Nenhum comentário foi encontrado.
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
Instalação do Programa Imposto de Renda Pessoa Física 2023 [RESOLVIDO]... (6)
Instalando e compilando o GCC/G++ erro (4)
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter