¿Cómo hago para que Perl counter script para recolectar direcciones IP

¿ Perl es un lenguaje de scripting de gran alcance que se puede utilizar para contar las ocurrencias de archivos , tales como direcciones IP. Si desea que su counter script para anotar el número de direcciones IP en un archivo , por ejemplo , puede utilizar expresiones regulares para hacer la tarea , hacen clasificando texto y números específicos mucho más fácil. Si desea almacenar las direcciones IP , puede anexarlos a un archivo de texto. Instrucciones
1

Abre tu counter script Perl
2

Crear una expresión regular que coincida con las direcciones IP de las líneas que usted está leyendo en : .
< P > ( [ 0-9 ] + \\. [ 0-9 ] + \\. [ 0-9 ] + \\. [ 0-9 ] + )

coincidirá con cualquier dirección IPv4 IP .

3

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

if ( $ line = ~ m /( [ 0-9 ] + \\ [ 0-9 ] +. \\ [ 0-9 ] + \\ [ 0-9 ] +) /) {$ contador + + ;}
4

Agregar la dirección IP a la lista : . .

abierto ( SUARCHIVO , ' >> IPaddresses.txt '); SUARCHIVO print $ 1 ; cerca ( SUARCHIVO ) ;

Esto añadirá la nueva dirección IP en el archivo externo. Su segmento de código final debe ser similar a esto:

if ( $ line = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 . . . -9 ] +) /) {open ( SUARCHIVO , ' >> IPaddresses.txt '); SUARCHIVO print $ 1 ; cerca ( SUARCHIVO ), $ contador + + ;}