Foro - Perl en Español

A veces una coincidencia mínima puede ser de gran ayuda. Suponga que desea buscar todo lo que hay entre "mesa" y "come". Para empezar, lo intenta con:

$_ = "En la mesa, al mediodía, se come, y en el comedor se cena.";
if ( /mesa(.*)come/ ) {
print "se obtiene <$1>\n";
}

del que, inesperadamente, resulta:

se obtiene <, al mediodía, se come, y en el >

Esto se debe a que ".*" es avaricioso, por lo que obtiene todo lo que hay entre la primera instancia de "mesa" y la última instancia de "come". Aquí es más eficaz utilizar una coincidencia
mínima para asegurarse de obtener el texto entre una instancia de "mesa" y la primera instancia de "come" que haya a continuación.

if ( /mesa(.*?)come/ ) { print "obtiene <$1>\n" }

obtiene <, al mediodía, se >