[Cascavel-pm] Manipulação de arquivo
Thomas Britis
thomas em tcnet.com.br
Quarta Outubro 25 11:30:33 PDT 2006
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
Mais detalhes sobre a lista de discussão Cascavel-pm