[Cascavel-pm] Manipulação de arquivo
Diego Mendes Teixeira
diegom em lcc.ufmg.br
Quarta Outubro 25 11:35:45 PDT 2006
Valeu Thomas, brigadão mesmo.
t+
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
'============================================'
Thomas Britis
<thomas em tcnet.com
.br> Para
Enviado Por: Cascavel Perl Mongers
cascavel-pm-bounc <cascavel-pm em pm.org>
es+diegom=lcc.ufm cc
g.br em pm.org
Assunto
Re: [Cascavel-pm] Manipulação de
25/10/2006 15:30 arquivo
Favor responder a
Cascavel Perl
Mongers
<cascavel-pm em pm.o
rg>
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
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/91a18bb3/attachment-0001.html
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome : graycol.gif
Tipo : image/gif
Tam : 105 bytes
Descr.: não disponível
Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/91a18bb3/attachment-0003.gif
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome : pic16118.gif
Tipo : image/gif
Tam : 1255 bytes
Descr.: não disponível
Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/91a18bb3/attachment-0004.gif
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome : ecblank.gif
Tipo : image/gif
Tam : 45 bytes
Descr.: não disponível
Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/91a18bb3/attachment-0005.gif
Mais detalhes sobre a lista de discussão Cascavel-pm