Um simples script em Tcl que compacta arquivos e diretórios simultâneamente.

Arquivos comuns são compactados no formato ".bz2"

Diretórios são compactados no formato ".tar.bz2"

Falou!!!

• Download lote.tcl
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/tcl
#
# Compacte arquivos e diretórios simultâneamente.
#
# Autor: Sandro Marcell (sandro_marcell@yahoo.com.br)
#
# Uso: nome_do_scrpt arquivo1 [arquivoN]
#
# É possível o uso do metacaractere (*)

if {$argc == 0} {
   puts stdout "\n>> Uso: [file tail $argv0] arquivo1 \[arquivoN\]\n"
   exit
}

proc Aguarde {} {
   puts stdout "Compactando..."
   sleep 1
}

foreach A $argv {

   if {![file exists $A]} {
      puts stdout "-> Arquivo ou diretório não encontrado!"
      continue
   } elseif {![file owned $A]} {
      puts stdout "-> Sem permissão para compactar!"
      continue
   }

   if {[file isdirectory $A]} {
      Aguarde
      exec tar -cjf $A.tar.bz2 $A >& /dev/null
      puts stdout "-> Diretório compactado!"
   } else {
      Aguarde
      exec bzip2 -zfk9 $A >& /dev/null
      puts stdout "-> Arquivo compactado!"
      continue
   }
}

Simples visualizador de arquivos texto

Simples relógio digital

Gerando senhas aleatórias

Criando uma simples lixeira para o usuário [Melhorado]

Compactando / descompactando arquivos (Melhorado)

Nenhum comentário foi encontrado.