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 + + ;}