[SP-pm] [Fwd: duvidas]

Luis Motta Campos luismottacampos at yahoo.co.uk
Thu May 28 08:31:45 PDT 2009


Gente, O Erick Herédia está precisando de uma forcinha... será que vocês
podem ajudar?

Putamplexos!

-------- Original Message --------
Subject: duvidas
Date: Thu, 28 May 2009 12:17:01 -0300
From: Erick Herédia <andjusticeforall4 em msn.com>
To: Perl Monks São Paulo <saopaulo-pm-owner em pm.org>
References: <mailman.3103.1243522554.3331.saopaulo-pm em pm.org>



Ola, Boa Tarde



eu gostaria de saber se voces podem me dar uma maozinha com um
programinha em perl:

eu estou iniciando na programação em perl, e gostaria de tirar algumas
duvidas

eu tenho esse codigo que seria de um programa de busca por uma
respectiva linha em um arquivo dci.

e eu preciso pesquisar por linha, e nao por palavra chave o conteudo do
edescovery.dci para evitar erros na busca,


#!C:/perl/bin/perl.exe


#Handle Area - in - outfile

open FILE, "c:/perl/discoverEdit[1].4796.11.30.5.8.2009" || die "failed
to open notice.txt $!\n";
@read=<FILE>;
close FILE;
open(OUTFILE, "> c:/perl/report.dci") or die "Can't open output file";

chomp @read;



#searching area


       print "digite uma linha\n";
              $choose=<STDIN>; chomp $choose;
               my @greplines = grep(/@lines/, em read);
       print "Não encontrado!!"  unless(@greplines);
         foreach $line (@greplines) {
   print OUTFILE @lines."\n";
  while (<FILE>) {
  sub commify {

}
}




Boa Tarde




_________________________________________________________________
More than messages–check out the rest of the Windows Live™.
http://www.microsoft.com/windows/windowslive/

-- 
Luis Motta Campos is a software engineer,
Perl Programmer, foodie and photographer.


More information about the SaoPaulo-pm mailing list