¿Cómo puedo obtener Perl contador de secuencia de comandos para recopilar direcciones IP?

Perl es un lenguaje de scripting de gran alcance que se puede utilizar para contar las apariciones de archivos, tales como direcciones IP. Si desea que su guión contador de hacer un recuento del número de direcciones IP en un archivo, por ejemplo, puede utilizar expresiones regulares para hacer la tarea; que hacen que la clasificación de texto y números mucho más fácil específico. Si desea almacenar las direcciones IP, a continuación, puede añadir a un archivo de texto.

Instrucciones

1 Abra su counter script Perl.

2 Crear una expresión regular que coincide con las direcciones IP de las líneas que usted está leyendo en:

([0-9] +. [0-9] +. [0-9] +. [0-9] +)

Esto coincidirá con cualquier dirección IP IPv4.

3 Aumentar el contador cada vez que se detecta una dirección IP:

if ($ linea = ~ m / ([0-9] +. [0-9] +. [0-9] +. [0-9] +) /)
{
$ Contador ++;
}

4 Agregue la dirección IP a la lista:

abierta (yourfile, '>> IPaddresses.txt');
imprimir yourfile $ 1;
cerrar (yourfile);

Esto añadirá la nueva dirección IP a su archivo externo. Su segmento de código final debe tener este aspecto:

if ($ linea = ~ m / ([0-9] +. [0-9] +. [0-9] +. [0-9] +) /)
{
abierta (yourfile, '>> IPaddresses.txt');
imprimir yourfile $ 1;
cerrar (yourfile);
$ Contador ++;
}