🚀 go-pugleaf

Hola Esteban!

Esteban wrote:
> Tengo un fichero con un mont�n de direcciones del tipo
> 
> 1001:From: "Pepe" <pepe@prueba.com>
> 
> y quiero extraer �nica y exclusivamente la direcci�n que hay entre < >
> se que se puede hacer con awk o con sed, pero lo que no se es �c�mo?

y en perl? A mi me resulta m�s c�modo para estas cosas.

#!/usr/bin/perl -w

while (<>) {
        ($nombre)=/.*<(.*)>/;
        print $nombre,"\n";
}

Usar:

./script.pl fichero_direcciones.txt > email.txt

Seguro que se puede hacer mejor ;)

Saludos