Hola a todos:
He comenzado a trabajar en este mundo de expresiones regulares.
A modo de ejercicio estoy haciendo un parser de XML. Sé que hay módulos como XML:DOM, etc, pero la idea es entender cómo se hace.
Llegue a lo siguiente:
sub getElementsByTagName($) {
my $_nodeName=shift;
my $_attributes = '';
my $_innerNode='.*';
my $_endNode="+((\/>)|(>$_innerNode<\/$_nodeName>))";
my $_i=0;
my @_aResul;
while ($_xml =~s/<$_nodeName $_attributes$_endNode/NODE$_i/i) {
push @_aResul,$&;
$i++
}
return @_aResul;
}
Ahora bien, si el ...