Perl è un linguaggio di scripting potente che può essere usato per contare le occorrenze di file, ad esempio gli indirizzi IP. Se si desidera che il counter script coincidere il numero di indirizzi IP in un file, ad esempio, è possibile utilizzare le espressioni regolari per fare il compito; Fanno smistamento testo e numeri molto più facile specifica. Se si desidera memorizzare gli indirizzi IP, è quindi possibile aggiungere a un file di testo.

istruzione

1 Aprire il counter script Perl.

2 Creare una espressione regolare che corrisponde indirizzi IP da linee che stai leggendo in:

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

Ciò corrisponderà a qualsiasi indirizzo IPv4 IP.

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 al tuo elenco:

aperto (FILEUTENTE, '>> IPaddresses.txt');
stampare FILEUTENTE $ 1;
vicino (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] +) /)
{
aperto (FILEUTENTE, '>> IPaddresses.txt');
stampare FILEUTENTE $ 1;
vicino (FILEUTENTE);
$ Contatore ++;
}