estou ficando confuso mas...PODE OU NAO PODE USAR REGEX NO CODIGO?<br>pq to vendo ali 1 /^$nome/i<br><br><div><span class="gmail_quote">Em 24/10/06, <b class="gmail_sendername">Daniel Vinciguerra</b> <<a href="mailto:daniel_5h4d0w@hotmail.com">
daniel_5h4d0w@hotmail.com</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Muito obrigado Thomas....<br>Com a ajuda de sua iplementação pude adaptar ao meu codigo em Perl Tk e
<br>fazer alguns ajustes ^^<br><br>Muito obrigado memso... segue ai o codigo completo....<br><br>#########################################################################<br><br>#!/opt/ActivePerl-5.8/bin/perl-static<br><br>
#<br><br>use strict;<br>use Tk;<br>use Tk::Button;<br>use Tk::Entry;<br>use Tk::Frame;<br>use Tk::Label;<br>use Tk::Text;<br><br>my $mw=MainWindow->new(-title=>'Shadow Elf [ Modo de Visualizaçao ]');<br>my $Frame_001 = $mw -> Frame ( -relief=>'flat' ) -> pack(-ipadx=>100,
<br>-ipady=>10, -fill=>'both');<br>my $Frame_002 = $mw -> Frame ( -relief=>'flat' ) -> pack(-ipadx=>100,<br>-fill=>'both');<br>my $Frame_003 = $mw -> Frame ( -borderwidth=>1, -background=>'gray75',
<br>-label=>'Shadow Book [ Visualizaçao ]', -relief=>'raised' ) -><br>pack(-ipadx=>100, -ipady=>10, -fill=>'both');<br>my $Frame_004 = $mw -> Frame ( -relief=>'flat' ) -> pack(-ipadx=>100,<br>
-fill=>'both');<br>my $Bt_Fechar = $mw -> Button ( -relief=>'raised', -text=>'Fechar',<br>-command=>sub{ exit; }, -state=>'normal' ) -> pack(-fill=>'both');<br>my $Tx_Consulta = $Frame_004 -> Scrolled ( 'Text', -height=>10,
<br>-borderwidth=>1, -relief=>'sunken', -scrollbars=>'e', -wrap=>'none',<br>-width=>30, -state=>'normal' ) -> pack(-fill=>'both');<br>my $Lb_Consulta = $Frame_002 -> Label ( -justify=>'left', -text=>'Pesquisar
<br>por:', -relief=>'flat' ) -> pack(-anchor=>'w');<br>my $En_Consulta = $Frame_002 -> Entry ( -borderwidth=>1,<br>-background=>'White', -justify=>'left', -relief=>'sunken', -width=>30,<br>-state=>'normal' ) -> pack(-side=>'left', -anchor=>'nw');
<br>my $Bt_Consulta = $Frame_002 -> Button ( -relief=>'raised',<br>-text=>'Consultar', -command=>\&pesquisa, -state=>'normal' ) -><br>pack(-anchor=>'e');<br>MainLoop;<br><br>##### Functions Code....
<br><br><br>sub pesquisa{<br><br>my ($data);<br>my (@dados);<br><br>## Checa se a variavel não esta setando um outro arquivo<br>if( $ENV{DATABASE}){<br>$data = $ENV{DATABASE}<br>}else{<br>$data = $ENV{HOME} . "/.DataBase";
<br>}<br><br>## Recebe o NOME do Entry<br>my $nome = $En_Consulta->get;<br><br>## Abre o arquivo da agenda....<br>open (DB, "< $data");<br>while (<DB>) {<br> chomp();<br> if (/^$nome/i) {
<br> @dados = split (/:/, $_);<br> last;<br> }<br>}<br>if ($dados[0]) {<br><br>## Insere os dados no campo criado pelo widget Text caso algo seja<br>encontrado<br>$Tx_Consulta -> insert('end',"
<br>Nome: $dados[0] \n<br>Endereço: $dados[1] \n<br>Bairro: $dados[2] \n<br>Cidade: $dados[3] \n<br>Estado: $dados[4] \n<br>Telefone: $dados[5] \n<br>Celular: $dados[6] \n<br>E-Mail: $dados[7] \n");
<br><br>} else {<br><br>## Senão retorna uma msg...<br>$Tx_Consulta -> insert('end',"Dados indisponíveis.\n");<br>}<br>close(DB);<br><br>}<br><br>#########################################################################
<br><br><br><br><br>>From: Thomas Britis <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a>><br>>Reply-To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>
>To: Cascavel Perl Mongers <<a href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>>Subject: Re: [Cascavel-pm] Manipulação de arquivo<br>>Date: Mon, 23 Oct 2006 21:07:28 -0200<br>><br>>my (@dados);
<br>>my ($nome) = $ARGV[0]; # Recebe o nome como primeiro argumento<br>>open (F, "<Agenda");<br>>while (<F>) {<br>> chomp();<br>> if (/^$nome/i) {<br>> @dados = split (/:/, $_);
<br>> last;<br>> }<br>>}<br>>if ($dados[0]) {<br>> print "Nome:\t$dados[0]\n";<br>> print "End:\t$dados[1]\n";<br>> print "Bairro:\t$dados[2]\n";
<br>> print "Estado:\t$dados[3]\n";<br>> print "Fone:\t$dados[4]\n";<br>>} else {<br>> print "Dados indisponíveis.\n";<br>>}<br>><br><br>_________________________________________________________________
<br>Chegou o Windows Live Spaces com rede social. Confira<br><a href="http://spaces.live.com/">http://spaces.live.com/</a><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>