[Cascavel-pm] Manipulação de arquivo

[Diego Mendes Teixeira]

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
'============================================'


                                                                           
             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 14:39          arquivo                             
                                                                           
                                                                           
             Favor responder a                                             
               Cascavel Perl                                               
                  Mongers                                                  
             <cascavel-pm em pm.o                                             
                    rg>                                                    
                                                                           
                                                                           




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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/9d4dd693/attachment.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/9d4dd693/attachment.gif 
-------------- Próxima Parte ----------
Um anexo não texto foi limpo...
Nome  : pic24626.gif
Tipo  : image/gif
Tam   : 1255 bytes
Descr.: não disponível
Url   : http://mail.pm.org/pipermail/cascavel-pm/attachments/20061025/9d4dd693/attachment-0001.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/9d4dd693/attachment-0002.gif