Compactando arquivos e diretórios simultâneamente

Publicado por Sandro Marcell 28/05/2007

[ Hits: 4.298 ]

Homepage: http://sanmarcell.wordpress.com

Download lote.tcl




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!!!

  



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
   }
}

Scripts recomendados

Simples visualizador de arquivos texto

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

Simples relógio digital

Compactando / descompactando arquivos (Melhorado)

Gerando senhas aleatórias


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts