Simples visualizador de arquivos texto
Publicado por Sandro Marcell 06/06/2007
[ Hits: 5.054 ]
Homepage: http://sanmarcell.wordpress.com
Visualize arquivos e algumas características como: tamanho, dono, tipo, data de modificação, etc...
É meio tosco mas quebra um galho.
#!/usr/bin/tcl # # Visualizador tosco de arquivos texto em Tcl. # # Sandro Marcell (sandro_marcell@yahoo.com.br) # # Boa Vista - RR, 30/05/2007 # Testes condicionais: if {$argc == 0 || $argc >1} { puts stdout "\nUso: [file tail $argv0] \[arquivo\]\n" exit } elseif {![file exists $argv]} { puts stdout "\nErro -> Arquivo não encontrado.\n" exit } elseif {![file readable $argv]} { puts stdout "\nErro -> Sem permissão para visualizar.\n" exit } elseif {[file isdirectory $argv]} { puts stdout "\nErro -> O arquivo é um diretório.\n" exit } # Opções para o usuário: puts -nonewline stdout " +-------------------------------------------------+ | 1 - Visualizar informações sobre o arquivo | +-------------------------------------------------+ | 2 - Visualizar conteúdo do arquivo | +-------------------------------------------------+ \nO que fazer?:" gets stdin OPC set L [exec clear] # Condicional switch: switch -exact $OPC { 1 { set A [file attributes $argv -owner] set B [file attributes $argv -permissions] set C [ set T [file atime $argv] set TL [clock format $T -format "%d/%m/%y às %H:%M:%S"] ] set D [ set T2 [file mtime $argv] set TL2 [clock format $T2 -format "%d/%m/%y às %H:%M:%S"] ] set E [file size $argv] set F [file type $argv] # Informações na tela: puts stdout $L puts stdout "Informações sobre o arquivo: \[$argv\]\n Dono --> $A Permissões (em octal) --> $B Último acesso --> $C Última modificação --> $D Tamanho --> $E (bytes) Tipo de arquivo --> $F\n" } 2 { # Abrindo e visualizando arquivo: puts stdout $L set V [open $argv r] while {![eof $V]} { set M [gets $V] puts stdout $M } } default { puts stdout "\nErro -> Opção inválida!\n" exit } } # Fim...
Compactando / descompactando arquivos (Melhorado)
Compactando arquivos e diretórios simultâneamente
Convertendo escalas termométricas
Criando uma simples lixeira para o usuário [Melhorado]
Nenhum comentário foi encontrado.
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Instalação não está resolvendo as dependencias (1)
dpkg: erro: gatilho de arquivo duplicado chamado pelo arquivo de nome (5)
Captação de áudio no zorin linux começa a diminuir com o tempo (5)
Alternativas ao Multilogin para gerenciamento de múltiplas contas/prof... (0)