Script em Tcl para descompactar arquivos
Publicado por Sandro Marcell 29/03/2007
[ Hits: 5.459 ]
Homepage: http://sanmarcell.wordpress.com
Este simples script em Tcl, descompacta arquivos nos seguintes formatos:
## .gz, .bz2, .zip, .tar.gz e .tar.bz2 ##
É um script fácil de usar e de entender o seu funcionamento, pois ele está todo comentado.
#!/usr/bin/tcl ## Descom.tcl - descompactador de arquivos ## Escrito por: Sandro Marcell P. Barbosa (Boa Vista - Roraima) ## E-mail: sandro_marcell@yahoo.com.br ## Slackware GNU/Linux 10.1 # +---------------------------------------------------------------+ # As extensões suportadas são: .gz, .bz2, .zip, .tar.gz e .tar.bz2 # +---------------------------------------------------------------+ # Checa se o usuário passou algum parâmetro para o script: if {$argc == 0} { puts stdout "\a >>> Uso: [file tail $argv0] /caminho/arquivo.extensão\n >>> Exemplo: [file tail $argv0] /home/user/arquivo.gz\n" exit 0 } # Caso tenha passado, o script contínua! # A condição 'if' teste se o parâmetro passado (o arquivo)\ realmente existe; if {![file exists $argv]} { puts stdout "\n\a:( Arquivo não encontrado!\n" exit 0 } # Se existir, executa o laço "switch". # Este procedimento será utilizado no laço "switch". proc Sucesso {} { puts stdout "\n:) Descompactação finalizada com sucesso!\n" } # Início do laço "switch", que determinará o comando a ser executado: switch -glob $argv { *.tar.gz { if {[catch {exec tar -xzf $argv 2> /dev/stdout}] == 0} { Sucesso } else { puts stdout "\a" exit 1 } } *.gz { if {[catch {exec gunzip $argv 2> /dev/stdout}] == 0} { Sucesso } else { puts stdout "\a" exit 1 } } *.tar.bz2 { if {[catch {exec tar -xjf $argv 2> /dev/stdout}] == 0} { Sucesso } else { puts stdout "\a" exit 1 } } *.bz2 { if {[catch {exec bunzip2 $argv 2> /dev/stdout}] == 0} { Sucesso } else { puts stdout "\a" exit 1 } } *.zip { if {[catch {exec unzip $argv 2> /dev/stdout}] == 0} { Sucesso } else { puts stdout "\a" exit 1 } } default { puts stdout "\n\a:( Arquivo com extensão não suportada!\n" } }
Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa
Calculadora com funções básicas
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (0)
Problema com alias usando locate (4)
Criar uma base de reconhecimento de HW no VOL (11)
[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