Foro - Perl en Español

Hola.

He estado intentando hacer lo siguiente:

Tengo una IP: (192.168.40.2)

Y con una expresión regular quiero obtener (192.168.40)

Lo que logré fue extraer los 4 bloques por separado y concatenar lo que me interesaba. Pero es un código muy rebuscado. Sé que no es el correcto.
Cualquier orientación o idea es agradecida.

Saludos.

¿Dónde está el código que has usado?

Disculpa no haberlo mostrado, pero me parece malísimo, jejeje



Es un código de prueba

Bueno, se puede hacer de muchas formas, pero tu solución es igual de válida.



Hay un problema: en el texto dices que quieres obtener los tres primeros valores, pero en el código solo te quedas con los 2 primeros, ya que pones el tercero a 0.

Otra forma:



Y otra más, usando sustitución, cambiando lo que queremos (el último byte)

Nuevamente mil gracias Explorer.
Mejor no se puede, se nota que colaboras con mucho esmero.

Gracias.

Se me ha ocurrido otra forma: con las funciones de búsqueda y subcadena:


Con rindex() buscamos desde atrás el último '.', y allí insertamos el texto que queremos con substr() usado en el lado izquierdo de la asignación (curioso: una función en el lado izquierdo).

Yo te recomiendo que le eches un vistazo al módulo Regex::Common que contiene expresiones regulares ya preparadas para las cosas más comunes.

La expresión regular correcta para una IP, si quieres ser estricto y que no se te cuelen cosas que no son IP válidas, no es tan sencilla como pudiese parecer a primera vista.

En este caso, la que genera Regexp::Common es...



Que además captura la IP en $1 y los octetos que la forman en $2, $3, $4 y $5 respectivamente.

O sea, para lo que tu quieres hacer...