[Cascavel-pm] Duvida com grep
Alex E. J. Falcão
alfspsp em hotmail.com
Segunda Maio 17 08:39:48 CDT 2004
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
>
Mais detalhes sobre a lista de discussão Cascavel-pm