Compactando / descompactando arquivos (Melhorado)
Publicado por Sandro Marcell 12/07/2007
[ Hits: 5.908 ]
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 =)
Compactando arquivos e diretórios simultâneamente
Criando uma simples lixeira para o usuário [Melhorado]
Convertendo escalas termométricas
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
erro ao clonar repo github (5)
Problema Envio email GLPI Versao 10.0.15 (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (25)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba