Compactando arquivos e diretórios simultâneamente

Publicado por Sandro Marcell 28/05/2007

[ Hits: 3.958 ]

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 ([email protected])
#
# 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

Gerando senhas aleatórias

Compactando / descompactando arquivos (Melhorado)

Simples relógio digital

Convertendo escalas termométricas


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts