? Perl er et kraftig skriptspråk som kan brukes til å telle forekomster i filer, for eksempel IP-adresser. Hvis du vil at telleren skriptet til telleapparat opp antall IP-adresser i en fil for eksempel , kan du bruke vanlige uttrykk til å gjøre oppgaven , de gjør sortere ut spesifikk tekst og tall mye enklere. Hvis du ønsker å lagre disse IP-adresser , kan du legge dem til en tekstfil . Instruksjoner
en

Åpne Perl teller script
2

Lag et regulært uttrykk som vil matche IP-adresser fra linjene du leser her: .
< P > ( [ 0-9 ] + \\. [ 0-9 ] + \\. [ 0-9 ] + \\. [ 0-9 ] + )
p Dette vil matche enhver IPv4 IP -adresse .

3

Øk telleren hver gang en IP-adresse er oppdaget:

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

Legg inn IP-adressen til din liste : . .

åpen ( Dinfil , ' >> IPaddresses.txt '); print Dinfil $ 1 ; nær ( Dinfil ) ;
p Dette vil legge den nye IP-adressen til den eksterne filen . Din endelige koden segmentet skal se slik ut : en

if ( $ linje = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 . . . -9 ] + ) /) { open ( Dinfil , ' >> IPaddresses.txt '); print Dinfil $ 1 ; nær ( Dinfil ), $ teller + +; }