• Publicidad

Contar IP duplicadas

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Contar IP duplicadas

Notapor situ » 2007-07-08 11:45 @531

Buenas los molesto con una consulta, ya que estuve buscando y la verdad que la información que encontré no me sirvió.

Tengo un archivo el cual contiene direcciones IPs.
Por ejemplo:
192.168.1.1
192.168.1.2
10.20.10.20
192.168.1.1
10.5.6.7
10.20.10.20

Me gustaría ver la forma de hacer que me guarde la cantidad de veces que se repite una IP y al costado dicha IP.

Muchas Gracias.
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114

Publicidad

Notapor creating021 » 2007-07-08 13:38 @610

Hola.

Aquí está todo lo que necesitas...
Lee sobre hash y sus funciones.
Uso de loops.

Para sacar las IPs usas:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
while (my $linea = <File_handle>){
  chomp($linea);
  if($linea =~ /\d+\.\d+\.\d+\.\d+/){...}
}
 
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor situ » 2007-07-08 14:30 @646

Muchas Gracias, voy a ver si me sale.. por el momento no me doy cuenta de cómo hacerlo, pero me pondré a leer los link.

Gracias
situ
Perlero nuevo
Perlero nuevo
 
Mensajes: 358
Registrado: 2007-04-09 01:44 @114

Notapor explorer » 2007-07-08 16:25 @726

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2007-07-14 07:45 @364

También puedes usar los comandos típicos de Unix para solventarlo:

Código: Seleccionar todo
explorer@casa:~> cat kk.txt
192.168.1.1
192.168.1.2
10.20.10.20
192.168.1.1
10.5.6.7
10.20.10.20
explorer@casa:~> sort kk.txt|uniq -c
      2 10.20.10.20
      1 10.5.6.7
      2 192.168.1.1
      1 192.168.1.2
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados