? Perl er et kraftfuldt scripting sprog, der kan bruges til at tælle forekomster i filer , såsom IP-adresser. Hvis du ønsker din counter script til stemmer 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 fø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 : .
< P > ( [0-9] + \\ . [0-9] + \\ . [0-9] + \\ . [0-9] +)

Dette vil matche enhver IPv4 IP-adresse.

3

Forøg tælleren hver gang en IP-adresse er registreret : Hej

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

Tilføj IP-adressen til din liste : . .

åbne ( YOURFILE ' >> IPaddresses.txt '); print YOURFILE 1 dollar , tæt ( YOURFILE )

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

if ($ line = ~ m /( [0-9] + \\ [0-9] + \\ [0-9] + \\ [0 . . . -9 ] +) /) { åbne ( YOURFILE ' >> IPaddresses.txt '); print YOURFILE en dollar , tæt ( YOURFILE ) $ counter + + ;}
< br >