? Perl är ett kraftfullt skriptspråk som kan användas för att räkna förekomster i filer, t.ex. IP-adresser . Om du vill att din counter script stämma upp antalet IP-adresser i en fil till exempel , kan du använda reguljära uttryck för att göra uppgiften , de gör sortera ut viss text och tal mycket enklare . Om du vill spara dessa IP-adresser , kan du lägga till dem sedan till en textfil . Instruktioner
1
Öppna din Perl counter script
2
Skapa ett reguljärt uttryck som matchar IP-adresser från de linjer du läser i : .
( [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + ) katalog
Detta matchar alla IPv4 IP -adress .
3
Öka räknaren varje gång en IP-adress upptäcks :
if ( $ rad = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + . \\ [ 0-9 ] + \\ [ 0-9 ] + ) /) { $ disk + + ; }
4
Lägg till IP-adressen till din lista : . .
open ( YOURFILE , ' >> IPaddresses.txt ' ) , print YOURFILE $ 1 , nära ( YOURFILE ) ;
Detta kommer att lägga till den nya IP -adressen till din externa filen . Din slutliga koden segment bör se ut så här :
if ( $ rad = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 . . . -9 ] + ) /) { open ( YOURFILE , ' >> IPaddresses.txt ' ) , print YOURFILE $ 1 , nära ( YOURFILE ) , $ disk + + ; }
