[Cascavel-pm] Parse de Endereço (Was: Re: Separando campos)

[Luis Motta Campos]

On Mar 20, 2007, at 6:29 PM, Gabriel Vieira wrote:
> ---------------------8<---------------------
> $num = 'sem numero|sn|s/n|sem número|sem num|numero|número|num|no| 
> nº|n°|núm|n\.|n\.:';
>
> $endereco = "AV 29 JUNHO 00602";
> $endereco = "R MARGARIDAS 13 QD8 C 13";
> $endereco = "Acesso 27 14 1o andar";
> $endereco = "Av Santa Barbara do Oeste sem numero";
>
> print "Tipo: $1\nLogradouro: $2\nNúmero: $3\nComplemento: $7" if
> $endereco =~ /^(\w+)\s+([\s\w]+?)\s+(($num)?(\d+)?)(\s+(.+?))?$/i;
> --------------------->8---------------------
>
> Acho que já dá um caldo... :)
> Só estruturar melhor.. utilizar hashs... permitir caracteres  
> acentuados... pegar a lista nos correios dos "Tipos" existentes...  
> e possivelmente algo mais :P
>

   Você está no ponto de se beneficiar do código que eu acabei de  
postar.
   Se precisar de explicações ou ajuda extra, mail me em private, e  
conversamos.
   Eu tenho uma cópia do Aho, Ullman e Sethi no Brazil que acho que  
consigo fazer chegar nas tuas mãos.

   Putamplexos!
--
Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
Perl fanatic evangelist, and amateur {cook, photographer}