Script em Tcl para descompactar arquivos
Publicado por Sandro Marcell 29/03/2007
[ Hits: 5.693 ]
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" } }
param - abre aplicativos com parâmetros no Blackbox e outros
Renomeando arquivos de forma padronizada
Calculadora com funções básicas
Nenhum coment�rio foi encontrado.
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)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (0)
Zorin OS - Virtual Box não consigo abrir maquinas virtuais (6)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (3)