Compactando / descompactando arquivos (Melhorado)
Publicado por Sandro Marcell 12/07/2007
[ Hits: 6.151 ]
Homepage: http://sanmarcell.wordpress.com
Esta versão melhorada compacta/descompacta arquivos de forma "inteligente", ou seja, ao passar os arquivos para o script, ele irá descobrir o que deve ser compactado e o que deve ser descompactado.
Ex.: script.tcl arq.txt arq.pdf arq.gz arq.tar.bz2 : Os arquivos 'arq.txt e arq.pdf' serão compactados; já os arquivos 'arq.gz e arq.tar.bz2' serão descompactados.
Isso será feito de forma simultânea sem a necessidade de parâmetros extras.
Espero que seja útil!
Falou!!!
#!/usr/bin/tcl # # Compacte/descompacte vários arquivos simultaneamente. # # Autor: Sandro Marcell (sandro_marcell@yahoo.com.br) # # Uso: nome_script arquivo1 [arquivoN] # É possível o uso do metacarectere (*) # # Obs.: São necessários os programas: tar, gzip e bzip2. # # Boa Vista - Roraima, 27/06/2007. # Checando parâmetros: if {$argc == 0} { puts stderr "Uso: [file tail $argv0] arquivo1 \[arquinoN\]" exit } # Simples avisos: proc Aguarde {} { puts stdout "Descompactando..." sleep 1 } proc Aguarde2 {} { puts stdout "Compactando..." sleep 1 } set SUCESSO "Arquivo descompactado!" set ERRO "-> Erro de entrada/saída." # Início do loop: foreach A $argv { # Testes condicionais: if {![file exists $A]} { puts stderr "-> Arquivo não encontrado." continue } elseif {![file owned $A]} { puts stderr "-> Sem permissão de acesso." continue } # Compactar ou descompactar? switch -glob $A { # Descompactando... *.tar.gz { Aguarde if {[catch {exec tar -xzf $A}] == 0} { puts stdout $SUCESSO } else { puts stderr $ERRO } } *.gz { Aguarde if {[catch {exec gunzip $A}] == 0} { puts stdout $SUCESSO } else { puts stderr $ERRO } } *.tar.bz2 { Aguarde if {[catch {exec tar -xjf $A}] == 0} { puts stdout $SUCESSO } else { puts stderr $ERRO } } *.bz2 { Aguarde if {[catch {exec bunzip2 $A}] == 0} { puts stdout $SUCESSO } else { puts stderr $ERRO } } default { # Compactando... if {[file isdirectory $A]} { Aguarde2 if {[catch {exec tar -cjf $A.tar.bz2 $A}] == 0} { puts stdout "Diretório compactado!" } else { puts stderr $ERRO } } if {[file isfile $A]} { Aguarde2 if {[catch {exec bzip2 -zfk9 $A}] == 0} { puts stdout "Arquivo compactado!" } else { puts stderr $ERRO } } } } continue } # Fim =)
Criando uma simples lixeira para o usuário [Melhorado]
Simples visualizador de arquivos texto
Compactando arquivos e diretórios simultâneamente
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)
Alguém já usou o framework Avalonia para desenvolver interfaces de usu... (4)
Ajuda Pra Melhoria do NFTABLES. (8)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (2)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)