Shadow Post It
Publicado por Daniel Vinciguerra 02/03/2007
[ Hits: 6.240 ]
Homepage: http://bivee.com.br
Download Shadow_Post-It.tar.gz
Este é um pequeno e bem simples script que fiz para auxiliar o pessoal que se amarra nas notinhas amarelas.
(Post It). Ele utiliza o modulo TK e manipulação de arquivos para gerar outro arquivo e salvar as informações que não estão escritas no Post It...
Espero que gostem....
Obs: Requer o modulo Tk para que rode...
#!/usr/bin/perl -w ## Name: Shadow Post It ## Author: Daniel Vinciguerra - Daniel Shadow ## E-mail: daniel_5h4d0w@hotmail.com ## Date: 24/01/2007 ## Description: Pequeno utilitario que serve como bloco de apontamento para ## gravar telefones, e-mails, compromissos, etc... ## Programa OpenSource e Free pode ser usado e alterado por todos mais por ## favor mantenha as referencias... use Tk; use Tk::Button; use Tk::Frame; use Tk::Text; ##Variables my $postit; my $post; if($ENV{POSTIT}){ $postit = $ENV{POST} }else{ $postit = $ENV{HOME}. "/.Post-it"; } ## Start a Main Window my $mw=MainWindow->new(-title=>'Shadow Post It'); my $Banner = $mw -> Frame ( -label=>'Shadow Post it', -borderwidth=>1, -relief=>'raised' ) -> pack(-fill=>'both'); my $Body = $mw -> Frame ( -relief=>'flat' ) -> pack(); my $Text_data = $Body -> Scrolled ( 'Text', -background=>'Yellow', -width=>20, -state=>'normal', -borderwidth=>1, -height=>8, -relief=>'sunken', -scrollbars=>'e', -wrap=>'none' ) -> pack(); my $Bt_Add = $mw -> Button ( -command=>\&get_post , -width=>8, -state=>'normal', -relief=>'raised', -text=>'Post it' ) -> pack(-fill=>'both', -side=>'left'); my $Bt_Sair = $mw -> Button ( -command=>sub { exit; }, -width=>8, -state=>'normal', -relief=>'raised', -text=>'Close' ) -> pack(-fill=>'both'); ## Check if post it are in directori... if($postit){ open(FILE, "< $postit") or die "\n Arquivo não encontrado!!!\n"; my @arquivo = <FILE>; $Text_data -> insert('end',"@arquivo"); close(FILE); } MainLoop; ## Start Call Back sub get_post{ $post = $Text_data->get('1.0', 'end'); open(POST, "> $postit") or die "\n Arquivo não encontrado!!!\n"; print POST (" $post"); close(POST); $Text_data -> delete('1.0','end'); open(FILE, "< $postit") or die "\n Arquivo não encontrado!!!\n"; my @arquivo = <FILE>; $Text_data -> insert('end',"@arquivo"); close(FILE); }
Manipulação de Arquivos Orientada a Objetos
Conversão de textos UTF-8 para ISO8859-1
Adiciona-Altera senhas/usuarios no sistema
FTP – Script para adicionar e remover usuários via WEB
Nenhum comentário foi encontrado.
Como agendar um backup automático do PostgreSQL no Cron evitando o problema de senha
Como preparar o Vim/Neovim para corrigir ortografia em português
Dark Web e Malwares na internet, quanto custa?
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Como verificar o hash de um arquivo baixado da Internet e como criar um hash
Debian 12 - IPTABLES - removendo NFTABLES
OverWatch 2 - Abrindo portas do jogo no Iptables.
Como instalar o adaptador wifi USB Intelbras ACtion A1200 no Linux Mint
Como normalizar seus arquivos MP3 para que fiquem no mesmo volume
Erro no brave no Ubuntu 22.04.4 LTS (16)
Instalando e compilando o GCC/G++ erro (5)
WACOM Intuos no Ubuntu - muita dificuldades (1)
Instalação do Programa Imposto de Renda Pessoa Física 2023 [RESOLVIDO]... (6)
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba
[Shell Script] Tire screenshots com Scrot facilmente com Zscrot
[Shell Script] DioPSI - Script multidistro para instalar programas
[Shell Script] ARS Vídeos - Cortador de vídeos e webcam shooter