Linux Cafe Blog

Se você está cansado de ficar identando bonitinho porque os outros enchem o saco, essa é a solução!

Este módulo lhe permite escrever o código da maneira mais preguiçosa possível, e no final ninguém reclamar, pois todas as boas práticas de aparência de código, estão ali! Ele lê o arquivo e reorganiza para você!!

http://search.cpan.org/~shancock/Perl-Tidy-20090616/lib/Perl/Tidy.pm

perl -e’for($i=0; $i < 50 ; $i++){print $i.”tatata… \n”}

Jogue para dentro de um arquivo (o codigo)

Simularei aqui um erro que eu mesmo já cometi muito, antes de conhecer as boas práticas(isso só imprime um triangulo de asteriscos ):

for ( $i = 0 ; $i < 94 ; $i++ )

{
$a = “\*” . “\*” x $i;
print $a. “\n”
}

Ok, codigo jogado, sem identação, a chave nao está na linha da condicional como deveria, chamemos isto de “script.pl”, rodamos o perltidy em cima dele, pois depois que você instala pelo CPAN podes usar como comando de sistema :

perltidy script.pl -o decente.pl

se lermos o decente.pl veremos algo como:

#!/usr/bin/perl

for ( $i = 0 ; $i < 94 ; $i++ ) {
$a = “\*” . “\*” x $i;
print $a. “\n”

}

Um código um pouco mais decente, visualmente mais agradável, isso me salvou a vida quando aprendi as boas práticas e quis aplicar nos meus scripts já feitos, trabalho 0, resultado instantâneo e muito bom, salvando o dia mais uma vez com Perl =)

E aí pessoal,

Na necessidade de me lembrar de algumas coisas de tempos em tempos, peguei um script que manda e-mails (em perl), e adaptei para mandar de tempos em tempos (feiamente com um for “infinito”), simplesmente no fim do dia eu mato o processo e ele para de encher, para usar copie o conteudo do script em um arquivo em branco e configure :

#!/usr/bin/perl

for($i=0;$i < 9999 ; $i++) {

print “Content-type: text/html\n\n”;

$title=’Lembrete’;
$to=’eu@samircury.eng.br’; # MUDE MEU e-mail!!!
$from= ‘lembrete@samircury.eng.br’; # MUDE isto também!!
$subject=’Lembrete’;

open(MAIL, “|/usr/sbin/sendmail -t”);

## Mail Header
print MAIL “To: $to\n”;
print MAIL “From: $from\n”;
print MAIL “Subject: $subject\n\n”;
## Mail Body
print MAIL “Aqui vai a mensagem do lembrete \n”;

close(MAIL);

sleep(600); # define o intervalo de 10 minutos para cada e-mail
}

Lembre-se que ele vai mandar no intervalo configurado

bom proveito!

E aí pessoal, esotu começando o blog agora, e espero em breve documentar aqui bastante coisa do que eu fizer, para compartilhar com o pessoal, primeiro vou criar um post para cada projeto que estou (não no momento) desenvolvendo, e depois coisas em geral =D

Enquanto isso podem conferir o que já postei num blog que tenho com uns amigos, meu apelido lá é “Laedrus” => http://www.desbravandoolinux.blogspot.com