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

Publicado por Sandro Marcell 19/07/2007

[ Hits: 3.530 ]

Homepage: http://sanmarcell.wordpress.com

Download lixo.tcl




Versão melhorada de um script que cria uma simples lixeira para o usuário.
(Versão Tcl)

Falou!!!

  



Esconder código-fonte

#!/usr/bin/tcl
#
# Criando uma simples lixeira para o usuário.
# (Versão Tcl)
#
# Autor: Sandro Marcell ([email protected])
#
# Uso: nome_script -r arquivo1 [arquivoN]
#      ou -e [Para esvaziar a lixeira]
#
# Obs.:
# Arquivos e diretórios são removidos sem pedido de confirmação.
# É possível o uso do metacaractere (*)
# A opção -e remove a lixeira

# Utilizando o script:
proc Uso {argv0} {
puts stderr "Uso: [file tail $argv0] -r arquivo1 \[arquivoN\]
     ou -e \[Para esvaziar a lixeira\]"
}

# Checando parâmetros:
if {$argc == 0} {
   Uso $argv0
   exit
}

# A lixeira:
variable LIXEIRA "~/lixeira"
if {![file exists $LIXEIRA]} {
   file mkdir $LIXEIRA
}

# Simples avisos:
variable SUCESSO "Arquivo removido!" ERRO "-> Erro de entrada/saída. "

# Capturando opção:
set OPC [lvarpop argv 0]

# Testando opção capturada:
switch -- $OPC {
   -e {
      # Checando parâmetros:
      if {[llength $argv] >= 1} {
         puts stderr "A opção \[-e\] não aceita parâmetros."
         exit
      } else {
         if {[catch {file delete -force $LIXEIRA}] == 0} {
                  puts stdout "Lixeira limpa!"
                  exit
               } else {
                  puts stderr $ERRO
                  exit
               }
            }
         }      
   -r {
      # Início do loop:
      foreach A $argv {
      # Testes condicionais:
      if {![file exists $A]} {
         puts stderr "-> Arquivo ou diretório não encotrado."
         continue
   } elseif {![file owned $A]} {
   puts stderr "-> Sem permissão para remover."
   continue
}
# Removendo:
if {[catch {file copy -force $A $LIXEIRA}] == 0 &&\
[catch {file delete -force $A}] == 0} {
      puts stdout $SUCESSO
   } else {
      puts stderr $ERRO
   }
}
}
   default {
      Uso $argv0
      exit
   }
}
# Fim

Scripts recomendados

Gerando senhas aleatórias

Convertendo escalas termométricas

Simples visualizador de arquivos texto

Compactando / descompactando arquivos (Melhorado)

Simples relógio digital


  

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