[Cascavel-pm] Duvida com grep

[Alex E. J. Falcão]

Se os dados não forem muito grandes, voce poderia tantar isto aqui:

#!/usr/bin/perl

use strict;

# Une os dados de entrada em uma so linha
$_ = join ("", <>);
s/\n//g;

# dados para localizar
my $ddd = "47";
my $fone = "1234-5678";

#localiza os dados
s/(.+\s)(\($ddd\)$fone)(\s.+)/$2/g;

print "\n\nTelefone $_ encontrado\n\n" if ("($ddd)$fone" eq $_);

__END__

Abraço
Alex Falcão

----- Original Message ----- 
From: <vivan em dim.fm.usp.br>
To: "Cascavel Perl Mongers" <cascavel-pm em mail.pm.org>
Sent: Friday, May 14, 2004 5:26 PM
Subject: [Cascavel-pm] Duvida com grep


> Gente,
>
> Eu tenho um arquivo que tem, entre outras informacoes, varios numeros de
> telefone, e quero encontrar um determinado. O problema eh q nesse arquivo,
> o numero do telefone pode estar "quebrado" ao final da linha. Ex:
>
> fljlfl lfjkç oeuooi nv,zvn. lllçafs (11)3333-3333 safadf vbvb
> lflf dfljaasfi hasdhf w (15)2222-2200 djasdfkçldf dfsajlkç ll
> laflçafdslç ldflçafsdçl (47)1234-5678 dsfafsdaasdf dff (97)25
> 87-0000 asdfpadf dsaf~çjasfdjl dsffçdçl dsf (33)3333-3333 ssf
> dfasffdasfdflasfldçlçadfjlçljkdfsljkçajlçkjklçafdsljkçasfdljk
> lkafsjjasdflkçfjjklfdsajlkçkjlfdsjklfasdjklfjklfsdaljksfljkas
>
> Como devo proceder, utilizando grep (em shell script e/ou em perl)?
>
> Tks,
> Adriano.
>
> --------------------------
> Esta mensagem foi verificada
> pelo sistema de antivírus DIM e
> acredita-se estar livre de Virus.
> Virus data file v4360 created May 12 2004
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em mail.pm.org
> http://cascavel.pm.org/mailman/listinfo/cascavel-pm
>