[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