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.

• Download descom.tcl
• Enviar nova versão

Esconder código-fonte

#!/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"
   }
}

Crivo de Eratóstenes Simples em Tcl (sem Tk)

Script lixeira em Tcl

param - abre aplicativos com parâmetros no Blackbox e outros

Relógio analógico

Corretagem 0.1 - calcula corretagem padrão de operações da Bovespa

Nenhum comentário foi encontrado.