Compactando arquivos e diretórios simultâneamente
Publicado por Sandro Marcell 28/05/2007
[ Hits: 4.460 ]
Homepage: http://sanmarcell.wordpress.com
Um simples script em Tcl que compacta arquivos e diretórios simultâneamente.
Arquivos comuns são compactados no formato ".bz2"
Diretórios são compactados no formato ".tar.bz2"
Falou!!!
#!/usr/bin/tcl # # Compacte arquivos e diretórios simultâneamente. # # Autor: Sandro Marcell (sandro_marcell@yahoo.com.br) # # Uso: nome_do_scrpt arquivo1 [arquivoN] # # É possível o uso do metacaractere (*) if {$argc == 0} { puts stdout "\n>> Uso: [file tail $argv0] arquivo1 \[arquivoN\]\n" exit } proc Aguarde {} { puts stdout "Compactando..." sleep 1 } foreach A $argv { if {![file exists $A]} { puts stdout "-> Arquivo ou diretório não encontrado!" continue } elseif {![file owned $A]} { puts stdout "-> Sem permissão para compactar!" continue } if {[file isdirectory $A]} { Aguarde exec tar -cjf $A.tar.bz2 $A >& /dev/null puts stdout "-> Diretório compactado!" } else { Aguarde exec bzip2 -zfk9 $A >& /dev/null puts stdout "-> Arquivo compactado!" continue } }
Compactando / descompactando arquivos (Melhorado)
Convertendo escalas termométricas
Criando uma simples lixeira para o usuário [Melhorado]
Nenhum coment�rio foi encontrado.
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
O que você está ouvindo agora? [2] (189)
warsaw parou de funcionar após atualização do sistema (solução) (10)