Shadow Post It
Publicado por Daniel Vinciguerra 02/03/2007
[ Hits: 6.352 ]
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); }
Adiciona-Altera senhas/usuarios no sistema
Eliminando caracteres indesejados
Script que remove palavras de um arquivo.
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
É cada coisa que me aparece! - não é só 3% (3)
Melhorando a precisão de valores flutuantes em python[AJUDA] (5)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta