Nova versão do mylocalspamdb.pl

Pessoal, Disponibilizei um código que utilizo para checar se determinado IP está cadastrado em alguma lista negra. https://bitbucket.org/kaiorafael/dns_tools/src/ O funcionamento é simples, se você tem o Perl e o módulo Net::DNS, basta rodar perl mylocalspamdb.pl -s IP ou perl mylocalspamdb.pl -f arquivo_com_um_IP_por_linha O conjunto das listas está no arquivo: spamdnsbl.txt, caso você queria adicionar ou […]

Conversão de Base em Perl

De tempos em tempos precisamos converter um número em uma determinada base para outra. Em Perl, essa conversão é muito simples. O exemplo a seguir toma como base inicial um número em decimal e transforma para binário, octal e hexadecimal, respectivamente. Para fazer essa operação você deve utilizar o sprintf e um placeholder, por exemplo […]

Modificadores de Laço

Ou Loop Modifiers, em inglês, é uma opção que permite alterar o comportamento do fluxo do laço. Em C/C++ essa opção pode ser utilizada a partir do “continue” ou “break”. Em Perl, podemos fazer a mesma operação com “next” e “last”. Veja o Exemplo em Perl #!/usr/bin/perl use warnings; use strict; my $i; for ( $i […]

Declaração de Vetores em Perl

Continuando os posts do nosso curso de Perl, vamos aprender o processo de declaração de vetores. O que são Vetores em Perl?Em Perl o conceito de Vetores envolve uma lista de valores do tipo scalar. Cada elemento ou valor nessa lista é ordenado conforme um índice. Os valores na lista são apresentados em um “( […]

Quotes em Perl

Continuando os posts sobre Perl, vamos aprender um pouco sobre citações ou quotes de strings. Podemos declarar strings em Perl como no post anterior ou utilizando alguns operadores de strings. my $TEXTO = “Mundo SubMundo”; ou my $TEXTO = qq(Mundo SubMundo); Você também pode criar um tipo de “delimitador”, veja o exemplo abaixo: my $TEXTO […]