Simples visualizador de arquivos texto
Publicado por Sandro Marcell 06/06/2007
[ Hits: 4.724 ]
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...
Convertendo escalas termométricas
Criando uma simples lixeira para o usuário [Melhorado]
Compactando arquivos e diretórios simultâneamente
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Configurando static ipv6 em placa de rede eth0[DUVIDA] (1)
Sistema da Coréia do Norte - Red Star OS (59)
Comando interno CD não funciona (16)
Dificuldade em ler binário (12)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (2)