Shadow Post It
Publicado por Daniel Vinciguerra 02/03/2007
[ Hits: 6.281 ]
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); }
Script que procura uma palavra em um arquivo.
Eliminando caracteres indesejados
Nenhum comentário foi encontrado.
DOOM clássico (quase) vanilla e um pouco melhorado
Mamãe, quero descompactar e também compactar arquivos no terminal!
Instalando Micosoft Edge no Fedora 40
junest - Mini Arch Linux dentro de sua Distro
Rescuezilla - o Clonezilla com interface gráfica e ferramentas
Latte Dock, um dock de aplicativos com várias opções de configuração para o KDE Plasma
Porque não tenho os 450GB do meu HD ? Só está livre 15GB (3)
sinto falta do efeito atlantis do compiz. (2)