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

• Download Shadow_Post-It.tar.gz
• Enviar nova versão

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);

}

Apaga fila do Exim...

Inserindo sites em Lista do Squid

Script que procura uma palavra em um arquivo.

Rsync e Perl: Sincronização de arquivos com gestão de backup incremental integrada

Contagem de linhas em Perl (= wc -l)

Nenhum comentário foi encontrado.