Compactando arquivos e diretórios simultâneamente
Publicado por Sandro Marcell 28/05/2007
[ Hits: 4.465 ]
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 } }
Simples visualizador de arquivos texto
Criando uma simples lixeira para o usuário [Melhorado]
Convertendo escalas termométricas
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
Sem espaço na partição home (2)
O que você está ouvindo agora? [2] (190)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (5)
warsaw parou de funcionar após atualização do sistema (solução) (10)