[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