Hvordan får jeg Perl Counter Script Collect IP-adresser?

June 4

Perl er et kraftfuldt scripting sprog, der kan bruges til at tælle forekomster i filer, såsom IP-adresser. Hvis du vil have din counter script til at stemme overens op antallet af IP-adresser i en fil for eksempel, kan du bruge regulære udtryk til at udføre opgaven; de gør sortering ud specifik tekst og tal meget nemmere. Hvis du ønsker at gemme disse IP-adresser, kan du derefter tilføje dem til en tekstfil.

Instruktioner

1 Åbn din Perl counter script.

2 Opret et regulært udtryk, der vil matche IP-adresser fra de linjer, du læser i:

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

Dette vil matche enhver IPv4 IP-adresse.

3 Forøg tælleren hver gang der registreres en IP-adresse:

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

4 Tilføj IP-adressen til din liste:

åben (Yourfile, ">> IPaddresses.txt«);
udskrive Yourfile $ 1;
tæt (Yourfile);

Dette vil tilføje den nye IP-adresse til din ekstern fil. Din endelige kode segment skal se sådan ud:

if ($ line = ~ m / ([0-9] +. [0-9] +. [0-9] +. [0-9] +) /)
{
åben (Yourfile, ">> IPaddresses.txt«);
udskrive Yourfile $ 1;
tæt (Yourfile);
$ Counter ++;
}


relaterede artikler