Foi solução rápida durante um intervalo de atividades :).<br><br>O Adriano conseguiu fazer uma ótima didática com a solução.<br><br>Abraços ;)<br><br><div><span class="gmail_quote">On 3/19/07, <b class="gmail_sendername">Luis Motta Campos
</b> <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On Mar 19, 2007, at 4:03 PM, Gabriel Vieira wrote:<br>> Correção: no 2o o nome da rua aparece apenas "29 Junho".<br>> On 3/19/07, Gabriel Vieira <<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com
</a>> wrote:<br>> $endereco = "R MARGARIDAS 13 QD8 C 13";<br>> $endereco = "AV 29 JUNHO 00602";<br>> print "Tipo: $1\nRua: $2\nNúmero: $4\nComplemento: $6" if $endereco<br>> =~ /^(\w+)\s+((\s|\w)+?)\s+(\d+)(\s+((\s|\w)+))?$/;
<br>><br>> # Tipo: R<br>> # Rua: MARGARIDAS<br>> # Número: 13<br>> # Complemento: QD8 C 13<br>><br>> # e<br>><br>> # Tipo: AV<br>> # Rua: AV 29 JUNHO<br>> # Número: 00602<br>> # Complemento:
<br><br> Minhanossasenhoraaparecida!<br> Assim, a gente perpetua ainda mais a fama ruim da linguagem...<br> Espera. Faz assim:<br><br> #!/usr/bin/perl<br> use strict;<br> use warnings;<br> my $expressao_regular =
<br> qr{^ # um início de linha<br> (\w+) # seguido de uma palavra: o TIPO DE LOGRADOURO<br> \s+ # seguido de um ou mais espaços<br> (<br> (\s|\w)+ # seguido de uma ou mais palavras ou espaços: o NOME
<br>DO LOGRADOURO<br> ?) # mas não seja guloso: consuma o mínimo que conseguir.<br> \s+ # seguido de um ou mais espaços<br> (\d+) # seguido de um ou mais dígitos: o NÚMERO<br> (<br>
\s+ # seguido de um ou mais espaços<br> (<br> (\s|\w)+ # seguido de palavras ou espaços: o COMPLEMENTO<br> )<br> )? # opcionalmente.<br> $<br> }x;<br><br> # Agora, continuamos com a nossa "programação normal":
<br> print "Tipo: $1\nRua: $2\nNúmero: $4\nComplemento: $6"<br> if $expressao_regular =~ $endereco;<br><br> __END__<br><br> Agora, sim, isso parece racionalmente possível de ler e manter!<br> Muito cuidado, galera!
<br> Os iniciantes não sabem fazer isso, é melhor prevenir que remediar.<br><br> Verônica, se você tiver problemas, pergunta, que a gente sempre<br>responde. Sempre. ;-)<br> Putamplexos!<br>--<br>Luis Motta Campos (
a.k.a. Monsieur Champs) is a software engineer,<br>Perl fanatic evangelist, and amateur {cook, photographer}<br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">
Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Gabriel Vieira