"ansioso" expresión regular que coincida con

Question

Tengo que eliminar la cadena entre dos delimitadores, es decir, De "123XabcX321" Quiero "123321". Para un caso sencillo, estoy bien con:

$_=<>; 
s/X(.*)X//; 
print; 

Pero si hay ambigüedad en la entrada como "123XabcXasdfjXasdX321", que coincide con el primer X con el último X y me sale "123321" pero quiero " 123asdfj321 ". ¿Hay alguna manera de especificar una coincidencia "ansiosa" que coincida con el primer delimitador válido válido y no el último?

Answer 1

Normalmente se llama "poco codicioso", pones un? después del cuantificador: s/X(.*?)X//;

Answer 2

Evite el modificador no codicioso como algo más que una sugerencia de rendimiento si puede. Su uso puede generar resultados "inesperados" porque agregar ? en realidad no impide que .* coincida con nada. Por ejemplo,

$ perl -le'print for "XaXbXY" =~ /X(.*?)XY/;' 
aXb 

---

Para evitar que emparejan X, puede utilizar el siguiente:

s/X[^X]*X//g; 

Si X es realmente algo más grande que un personaje, puede utilizar el siguiente:

s/X(?:(?!X).)*X//g;