Skip to content

Instantly share code, notes, and snippets.

@massa
massa / gera-ebooks-almg.pl
Last active August 29, 2015 14:05
Gera Ebooks
#!/usr/bin/env perl
use massa;
use constant DIR_TRABALHO => '/tmp/work';
use constant URI_ESTATUTO =>
'http://www.almg.gov.br/consulte/legislacao/completa/completa-nova-min.html?tipo=LEI&num=869&comp=&ano=1952&texto=consolidado#texto';
use constant URI_REGIMENTO =>
'http://www.almg.gov.br/consulte/legislacao/completa/completa-nova-min.html?tipo=RAL&num=5176&comp=&ano=1997&texto=consolidado#texto';
use constant URI_CONSTITUICAO_MG =>
@massa
massa / geraebooksalmg
Created August 22, 2014 11:58
Gera Ebooks
#!/usr/bin/env perl
use massa;
use constant DIR_TRABALHO => '/tmp/work';
use constant URI_ESTATUTO => 'http://www.almg.gov.br/consulte/legislacao/completa/completa-nova-min.html?tipo=LEI&num=869&comp=&ano=1952&texto=consolidado#texto';
use constant URI_REGIMENTO => 'http://www.almg.gov.br/consulte/legislacao/completa/completa-nova-min.html?tipo=RAL&num=5176&comp=&ano=1997&texto=consolidado#texto';
use constant URI_CONSTITUICAO_MG => 'http://www.almg.gov.br/consulte/legislacao/completa/completa-nova-min.html?tipo=CON&num=1989&comp=&ano=1989&texto=consolidado#texto';
use constant URI_CONSTITUICAO_FEDERAL => 'http://www.planalto.gov.br/ccivil_03/constituicao/ConstituicaoCompilado.htm';
use constant CONFIG_TIDY => <<'CONFIG_TIDY';
#!/usr/bin/env perl
# (C) Humberto Massa 2008
# available to anyone under the terms of any of the following licenses,
# at recipient's will: GNU GPLv2, GNU GPLv3, CC-GPLv2, CC-SAv3.0
use massa;
sub adds {
open my $f, '-|', 'qdbus org.kde.klipper /klipper getClipboardHistoryMenu' or return;
@massa
massa / Fibonacci.pm
Created January 18, 2011 11:38
Fibonacci sequence implementation in Perl6
my @fib := 1, 1, *+* ... *;