next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: Opciones Sup: Expresiones Regulares Ant: Listas y ExpReg Err: Si hallas una errata ...

Map y las expresiones regulares

El siguiente ejemplo produce una lista formada por las direcciones electrónicas de una carpeta de correo:
#!/usr/bin/perl -w
open MAILFILE, shift;
@from = map /^From:\s+(.*)$/, <MAILFILE>;
map { print "$_\n" } @from;
Observése el uso de map aplicando la expresión regular /^From:\s+(.*)$/ a cada una de las líneas del fichero de entrada. Las cadenas que se emparejan con el primer paréntesis son devueltas para formar la lista que se almacena en @from. El segundo uso de map imprime cada uno de los elementos de la lista @from. Al ejecutarlo se produce una salida como esta:
~/perl/src> from.pl ~/mail/euromicro
Mail System Internal Data <MAILER-DAEMON@nereida.deioc.ull.es>
pdp03 Conference Manager <pdp03cm@iris.ima.ge.cnr.it>
pdp03cm@samba.ima.ge.cnr.it
"Chiquita Snippe-Marlisa" <euromicro@standby.nl>
"C.Leon [TRACS]" <coromoto@epcc.ed.ac.uk>
Javier Miranda <jmiranda@iuma.ulpgc.es>
Javier Miranda <jmiranda@iuma.ulpgc.es>


next up previous contents index practicapracticaPP2moodleLHPmoodlepserratacpanmodulospauseperlgoogleetsiiullpcgull
Sig: Opciones Sup: Expresiones Regulares Ant: Listas y ExpReg Err: Si hallas una errata ...
Casiano Rodríguez León
2006-02-21