[Cascavel-pm] Manipulação de arquivo

[Thomas Britis]

Leia a documentação do substr que você vai entender no ato.

	Se não entender, é só dizer.

	Abraços,

Diego Mendes Teixeira wrote:
> Ficou bem bacana Thomas. Vou testar a noite quando eu chegar na facul. 
> Mas eu fiquei meio confuso, pois tem expressoes que para um cara 
> iniciante (e confesso, começando a gostar muito e interessar por perl) 
> são novas.... queria entender mais detalhadamente o código. Como a 
> expressao que voce usa no laço:  ((substr ($nome, $x, 1) eq substr ($_, 
> $x, 1)) && (substr($_, $x, 1) ne $delim))
> 
> Brigadão ai pela ajuda.
> 
> Diego
> 
> 
> .============================================.
> Diego Mendes Teixeira - diegom em lcc.ufmg.br
> Desenvolvimento de Sistemas - LCC/CENAPAD
> Universidade Federal de Minas Gerais - UFMG
> Cel: +55(31)8842-9951 - Tel(trab): +55(31)34994910
> '============================================'
> Inativo ocultar detalhes deThomas Britis <thomas em tcnet.com.br>Thomas 
> Britis <thomas em tcnet.com.br>
> 
> 
>                         *Thomas Britis <thomas em tcnet.com.br>*
>                         Enviado Por:
>                         cascavel-pm-bounces+diegom=lcc.ufmg.br em pm.org
> 
>                         25/10/2006 14:39
>                         Favor responder a
>                         Cascavel Perl Mongers <cascavel-pm em pm.org>
> 
> 	
> 
> Para
> 	
> Cascavel Perl Mongers <cascavel-pm em pm.org>
> 
> cc
> 	
> 
> Assunto
> 	
> Re: [Cascavel-pm] Manipulação de arquivo
> 
> 	
> 
> 
> Fiz um programa (meio porco) usando a estrutura que você estava usando
> no outro para comparação exata sem uso de expressão regular:
> 
> my ($nome) = $ARGV[0] || die "Uso: $0 [palavra] [arquivo]\n";
> my ($delim) = ":"; # Delimitador já que você só considera a primeira
> parte, correto?
> my ($linha);
> my ($achei) = 0;
> my ($x);
> 
> open (F, "</$ARGV[1]");
> while (<F>) {
>         $linha++;
>         $x = 0;
>         while ((substr ($nome, $x, 1) eq substr ($_, $x, 1)) && (substr
> ($_, $x, 1) ne $delim)) { $x++; }
>         if ($x eq length ($nome)) {
>                 print "Achei em linha $linha\n";
>                 $achei++;
>                 last;
>         }
> }
> 
> print "Nao achei\n" if (!$achei);
> 
> -- 
> Thomas Storino Britis
> TCNet Informatica e Telecomunicacoes LTDA
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA