[Cascavel-pm] Manipulação de arquivo

[Thomas Britis]

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