Perl is een krachtige scripttaal die kan worden gebruikt om gebeurtenissen te tellen in bestanden , zoals IP -adressen . Als u wilt dat uw teller script om tally het aantal IP-adressen in een bestand bijvoorbeeld , kunt u gebruik maken van reguliere expressies om de taak te doen , ze maken het sorteren van specifieke tekst en getallen een stuk makkelijker . Als u wilt die IP- adressen op te slaan , kunt u vervolgens toevoegen ze naar een tekstbestand . Instructies 1 Open uw Perl script toonbank kopen van 2 Maak een reguliere expressie die zal overeenkomen met IP-adressen van de lijnen die je leest in : . ( [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + \\ . [ 0-9 ] + ) op Twitter Dit zal alle IPv4 IP- adres aan te passen . 3 Verhoog de teller elke keer dat een IP-adres wordt gedetecteerd : if ( $ lijn = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + . \\ [ 0-9 ] + \\ [ 0-9 ] + ) /) { $ teller + + ; } 4 het IP -adres toe aan je lijst : . . geopend ( YOURFILE , ' >> IPaddresses.txt ' ) ; druk YOURFILE $ 1 ; dicht ( YOURFILE ) ; Dit zal het nieuwe IP- adres aan uw extern bestand toevoegen . Je uiteindelijke code segment moet er zo uitzien : if ( $ lijn = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 . . . -9 ] + ) /) { openen ( YOURFILE , ' >> IPaddresses.txt ' ) ; druk YOURFILE $ 1 ; dicht ( YOURFILE ) ; $ teller + + ; } < br > |