Criando uma simples lixeira para o usuário [Melhorado]
Publicado por Sandro Marcell 19/07/2007
[ Hits: 3.782 ]
Homepage: http://sanmarcell.wordpress.com
Versão melhorada de um script que cria uma simples lixeira para o usuário.
(Versão Tcl)
Falou!!!
#!/usr/bin/tcl # # Criando uma simples lixeira para o usuário. # (Versão Tcl) # # Autor: Sandro Marcell (sandro_marcell@yahoo.com.br) # # 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
Compactando / descompactando arquivos (Melhorado)
Compactando arquivos e diretórios simultâneamente
Convertendo escalas termométricas
Simples visualizador de arquivos texto
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
Não consigo acessar os modos de desempenho (2)
Ubuntu — tentando iniciar o windows? (0)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba