Πώς μπορώ να πάρω Perl Counter Script για να συλλέγουν διευθύνσεις IP

; Perl είναι μια ισχυρή γλώσσα δέσμης ενεργειών που μπορεί να χρησιμοποιηθεί για να μετρήσει περιστατικά σε αρχεία , όπως διευθύνσεις IP . Αν θέλετε μετρητή script σας για να λογαριάζετε τον αριθμό των διευθύνσεων IP σε ένα αρχείο , για παράδειγμα , μπορείτε να χρησιμοποιήσετε τις συνήθεις εκφράσεις για να κάνει το καθήκον ? Κάνουν διαλογή συγκεκριμένο κείμενο και αριθμούς πολύ πιο εύκολο . Αν θέλετε να αποθηκεύσετε αυτές τις διευθύνσεις IP , μπορείτε στη συνέχεια να προστεθούν σε ένα αρχείο κειμένου . Οδηγίες
Η 1

Ανοίξτε Perl script μετρητή σας 2

Δημιουργήστε μια κανονική έκφραση που θα ταιριάζουν με τις διευθύνσεις IP από τις γραμμές που διαβάζετε σε : .

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

Αυτό θα ταιριάζει σε οποιαδήποτε διεύθυνση IPv4 IP .

Η 3

Αύξηση στον πάγκο κάθε φορά που μια διεύθυνση IP που εντοπίστηκαν:

if ( $ γραμμή = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + . \\ [ 0-9 ] + \\ [ 0-9 ] + ) /) { $ μετρητής + + ? }
Η 4

Προσθέστε τη διεύθυνση IP στη λίστα σας : . .

ανοιχτό ( YOURFILE , ' >> IPaddresses.txt ») ? εκτύπωση YOURFILE 1 δολάριο ? κλείσιμο ( YOURFILE ) ?

Αυτό θα προσαρτήσει τη νέα διεύθυνση IP σε εξωτερικό αρχείο σας . Τελικό τμήμα κώδικα σας θα πρέπει να μοιάζει κάπως έτσι : . . .

If ( $ γραμμή = ~ m /( [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0-9 ] + \\ [ 0 -9 ] + ) /) { ανοιχτό ( YOURFILE , ' >> IPaddresses.txt ») ? εκτύπωση YOURFILE 1 δολάριο ? κλείσιμο ( YOURFILE ) ? $ μετρητής + + ? }

Η