Compactando arquivos e diretórios simultâneamente

Descriçã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
   }
}