Simples visualizador de arquivos texto
Publicado por Sandro Marcell 06/06/2007
[ Hits: 4.979 ]
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 arquivos e diretórios simultâneamente
Convertendo escalas termométricas
Compactando / descompactando arquivos (Melhorado)
Criando uma simples lixeira para o usuário [Melhorado]
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Alguém já usou o framework Avalonia para desenvolver interfaces de usu... (4)
Ajuda Pra Melhoria do NFTABLES. (8)
Sinto uma leve lentidão ao arrastar, miniminizar e restauras as janela... (2)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (7)