Come trovare duplicati nel file utilizzando Perl

Perl è un linguaggio di programmazione di uso generale che può essere usato come una shell o linguaggio di scripting web . Usare Perl per trovare le linee duplicate in qualsiasi file di testo e li stampa su schermo , o in un altro file . La variabile hash Perl viene utilizzato per contenere i dati della lista . Un ciclo while analizza il file e conta il numero di volte che la linea si trova nel file. Istruzioni
1

Aprire un file di testo vuoto . Digitare le righe seguenti per avviare lo script Perl :

# /usr /bin /perluse strict; use warnings ;
2

Inserisci questa linea per creare la variabile che contiene il file ! nome : .

mio $ file = ' nomefile ';

Sostituire " filename.txt " con il nome del file in cui si desidera cercare i duplicati

3

Digitare la riga seguente per creare l'hash per contenere le righe del file :

mia linea % ;
4

Inserisci questa linea per aprire il file per la lettura :

locale @ ARGV = ( $ file ) ;
5

Inizia il ciclo while che leggerà attraverso ogni riga del file :

while ( < > ) {
6

Stampa le linee duplicate sullo schermo con questa linea :