Shadow Post It
Publicado por Daniel Vinciguerra 02/03/2007
[ Hits: 6.416 ]
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); }
Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada
Script para adicionar e remover usuários no IMSPECTOR
Manipulação de Arquivos Orientada a Objetos
Nenhum comentário foi encontrado.
Instalar e Configurar o Slackware Linux em 2025
Como configurar os repositórios do apt no Debian 12 em 2025
Passkeys: A Evolução da Autenticação Digital
Instalação de distro Linux em computadores, netbooks, etc, em rede com o Clonezilla
Como colorir os logs do terminal com ccze
Instalação Microsoft Edge no Linux Mint 22
Como configurar posicionamento e movimento de janelas no Lubuntu (Openbox) com atalhos de teclado
Máquinas Virtuais com IP estático acessando Internet no Virtualbox
Open Suse não abre wi-fi automaticamente (2)
Criar entrada no GRUB para uma ISO Linux (6)
Ruído no Microfone (ALC287 - AMD Ryzen 5 7535HS) no Debian 12.9 (15)