Compactando arquivos e diretórios simultâneamente

Publicado por Sandro Marcell 28/05/2007

[ Hits: 3.966 ]

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 relógio digital

Convertendo escalas termométricas

Compactando / descompactando arquivos (Melhorado)

Gerando senhas aleatórias

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


  

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