Shadow Post It

Publicado por Daniel Vinciguerra 02/03/2007

[ Hits: 6.367 ]

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...

  



Esconder código-fonte

#!/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);

}

Scripts recomendados

script para localizar conteudo de arquivo

arruma_nomes.pl

Manipulação de arquivos

Conversão de textos UTF-8 para ISO8859-1

Script que procura uma palavra em um arquivo.


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts