? Perl é uma linguagem de script poderosa que pode ser usado para contar as ocorrências em arquivos, como endereços IP. Se você quiser que seu script contra coaduna-se com o número de endereços IP em um arquivo , por exemplo , você pode usar expressões regulares para fazer a tarefa , pois eles fazem a triagem texto e números muito mais fácil específico. Se você deseja armazenar os endereços de IP , você pode , em seguida, anexá-los em um arquivo de texto. Instruções
1

Abra seu contador script Perl
2

Criar uma expressão regular que irá corresponder a endereços IP a partir das linhas que você está lendo em : .

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

Isso irá corresponder a qualquer endereço IP IPv4.

3

Aumentar o contador cada vez que um endereço IP é detectado :

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

Adicione o endereço IP à sua lista : . .

aberta ( SEUARQUIVO , '>> IPaddresses.txt '); imprimir SEUARQUIVO $ 1; perto ( SEUARQUIVO );

Isto irá anexar o novo endereço IP para o seu arquivo externo. O segmento de código final deve ficar assim: . . .

If ( $ line = ~ m /( [0-9] + \\ [0-9] + \\ [0-9] + \\ [0 -9 ] +) /) {open ( SEUARQUIVO , '>> IPaddresses.txt '); imprimir SEUARQUIVO $ 1; perto ( SEUARQUIVO ); $ contador + + ;}
< br >