Alguns regex (expressões regulares) úteis

Tinha isso guardado num txt bem antigo, mas me são de grande utilidade:

#Email:
^([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[@]([0-9,a-z,A-Z]+)([.,_,-]([0-9,a-z,A-Z]+))*[.]([a-z,A-Z]){2,3}([0-9,a-z,A-Z])?$

#CEP:
^[0-9]{5}-{1}[0-9]{3}$

#Data (mm/dd/yyyy):
^((0?[1-9]|[12]d)/(0?[1-9]|1[0-2])|30/(0?[13-9]|1[0-2])|31/(0?[13578]|1[02]))/(19|20)?d{2}$

#Data (dd/mm/yyyy):
^(0[1-9]|[12][0-9]|3[01])\/(0[1-9]|1[012])\/[12][0-9]{3}$
#Hora:
^(?:[01]d|2[0-3]):[0-5]d:[0-5]d$

#Decimal:
^[+-]?((d+|d{1,3}(,d{3})+)(.d*)?|.d+)$

#float ou int
^([0-9])+(\.[0-9]{1,2})?$

#CPF:
^[0-9]{3}.[0-9]{3}.[0-9]{3}-[0-9]{2}$

Instalar Módulos PERL

Sempre que me deparava erros como o abaixo em um perl, quase chorava, agora graças ao totoro ficou bem simples!

Exemplo de erro:

Can’t locate FCGI.pm in @INC (@INC contains: /etc/perl /usr/lib64/perl5/site_perl/5.12.3/x86_64-linux /usr/lib64/perl5/site_perl/5.12.3 /usr/lib64/perl5/vendor_perl/5.12.3/x86_64-linux /usr/lib64/perl5/vendor_perl/5.12.3 /usr/lib64/perl5/site_perl /usr/lib64/perl5/vendor_perl /usr/lib64/perl5/5.12.3/x86_64-linux /usr/lib64/perl5/5.12.3 /usr/local/lib/site_perl .) at /usr/local/bin/fastcgi-wrapper.pl line 3.
BEGIN failed–compilation aborted at /usr/local/bin/fastcgi-wrapper.pl line 3

Solução:

perl -eshell -MCPAN
install FCGI

OBS: Case sensitive (sim, tive problema com isso :P)

———————————————-
Posted Listening:  “Back to Madness – Stratovarius”