Ako získam Perl Counter Script zbierať IP adresy ?

Perl je mocný skriptovací jazyk , ktorý možno použiť na počítanie výskytov v súbore , ako je napríklad IP adresy . Ak chcete , aby vaše počítadlo skript zhodujú sa počet IP adries v súbore , napríklad , môžete použiť regulárne výrazy na vykonanie úlohy , robia triedenie určitý text a čísla oveľa jednoduchšie . Ak chcete uložiť tie IP adresy , potom môžete pripojiť ich do textového súboru . Pokyny dovolená 1

Otvorte Perl proti skript
2

Vytvorte regulárny výraz , ktorý bude zodpovedať IP adresy z radov čítate na : .
< P > ( [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + )

bude zodpovedať akúkoľvek adresu IPv4 IP .

3

zvýšiť počítadlo zakaždým , keď je detekovaný IP adresa :

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

Pridajte IP adresu zoznamu : ..

otvorené ( VASSOUBOR , " >> IPaddresses.txt ' ) ; vytlačiť VASSOUBOR 1 dolár , close ( VASSOUBOR ) ;

To sa pripojí na novú IP adresu vášho externého súboru . Váš konečný úsek kóde by mal vyzerať takto : ...

If ( $ riadok = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 -9 ] + ) /) { open ( VASSOUBOR , " >> IPaddresses.txt ' ) ; vytlačiť VASSOUBOR 1 dolár , close ( VASSOUBOR ) ; $ counter + + ; }

• Predchádzajúca strana: Ako previesť XML do PDF v Perlu 
• Ďalšia strana: Ako odobrať uzol Perl v XML Vetvička