Aprire il counter script Perl
2
Creare una espressione regolare che abbinerà indirizzi IP dalle righe che state leggendo in: .
( [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + ) per
Questo corrisponderà a qualsiasi indirizzo IP IPv4 .
3
aumentare il contatore ogni volta che viene rilevato un indirizzo IP:
if ( $ linea = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + . \\ [ 0-9 ] + \\ [ 0-9 ] + ) /) { $ contatore + + ; }
4
aggiungere l'indirizzo IP alla vostra lista : . .
aperto ( FILEUTENTE , ' >> IPaddresses.txt '); stampa FILEUTENTE $ 1 ; close ( FILEUTENTE ) ;
Questo aggiungerà il nuovo indirizzo IP al file esterno . Il tuo segmento di codice finale dovrebbe essere simile a questo :
if ( $ linea = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 . . . -9 ] + ) /) {open ( FILEUTENTE , ' >> IPaddresses.txt '); stampa FILEUTENTE $ 1 ; close ( FILEUTENTE ) ; $ contatore + + ; }
Programmazione © www.354353.com