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.
-
- Publicidad
Expresión regular para IP
7 mensajes
• Página 1 de 1
Expresión regular para IP
por angelruiz » 2009-08-10 17:50 @785
- angelruiz
- Perlero nuevo
- Mensajes: 32
- Registrado: 2009-06-03 08:33 @398
Publicidad
Re: Expresión regular para IP
por explorer » 2009-08-10 17:54 @788
¿Dónde está el código que has usado?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Expresión regular para IP
por angelruiz » 2009-08-10 18:06 @796
Disculpa no haberlo mostrado, pero me parece malísimo, jejeje
Es un código de prueba
Using perl Syntax Highlighting
- my $ip = "192.168.50.30";
- $ip =~ m{
- ^ #inicio de cadena
- ([0-9]+)\. #vari1
- (.*)\. #vari2
- (.*) #vari3
- $ #Fin de la cadena
- }x;
- print "primera: $1\n";
- print "segunda: $2\n";
- print "tercera: $3\n";
- my $yy = "$1.$2.0/24\n";
- print "$yy"
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Es un código de prueba
- angelruiz
- Perlero nuevo
- Mensajes: 32
- Registrado: 2009-06-03 08:33 @398
Re: Expresión regular para IP
por explorer » 2009-08-10 19:15 @844
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)
Using perl Syntax Highlighting
my $ip = "192.168.50.30";
$ip =~ /^(\d+\.\d+\.\d+)/;
print "$1.0/24\n";
$ip =~ /^(\d+\.\d+\.\d+)/;
print "$1.0/24\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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:
Using perl Syntax Highlighting
my $ip = "192.168.50.30";
@ip = split /\./, $ip;
print join(".", @ip[0..2], '.0/24'), "\n";
@ip = split /\./, $ip;
print join(".", @ip[0..2], '.0/24'), "\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Y otra más, usando sustitución, cambiando lo que queremos (el último byte)
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Expresión regular para IP
por angelruiz » 2009-08-11 00:47 @074
Nuevamente mil gracias Explorer.
Mejor no se puede, se nota que colaboras con mucho esmero.
Gracias.
Mejor no se puede, se nota que colaboras con mucho esmero.
Gracias.
- angelruiz
- Perlero nuevo
- Mensajes: 32
- Registrado: 2009-06-03 08:33 @398
Re: Expresión regular para IP
por explorer » 2009-08-11 08:40 @403
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).
Using perl Syntax Highlighting
my $ip = "192.168.50.30";
substr($ip, rindex($ip, q[.])) = '.0/24';
print "$ip\n";
substr($ip, rindex($ip, q[.])) = '.0/24';
print "$ip\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Expresión regular para IP
por salva » 2009-08-18 07:20 @347
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...
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...
Using perl Syntax Highlighting
/^((25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.](25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}))$/
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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...
Última edición por explorer el 2009-08-18 07:27 @352, editado 1 vez en total
Razón: Ortografía
Razón: Ortografía
-
salva - Perlero nuevo
- Mensajes: 200
- Registrado: 2008-01-03 15:19 @680
7 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados