¿Cómo encontrar duplicados en archivo mediante Perl

Perl es un lenguaje de programación de propósito general que puede ser utilizado como una concha o lenguaje de scripts web . Usa Perl para encontrar las líneas duplicadas en cualquier archivo de texto y les imprima en la pantalla, o en otro archivo. La variable hash de Perl se utiliza para contener los datos de lista . Un bucle while analiza el archivo y cuenta el número de veces que la línea se encuentra en el archivo. Instrucciones
1

Abra un archivo de texto en blanco. Escriba las líneas siguientes para iniciar el script de Perl :

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

Introduzca esta línea para crear la variable que contiene el archivo ! nombre : .

my $ archivo = ' archivo.txt ' ;

Reemplazar " archivo.txt " con el nombre del archivo en el que desea buscar duplicados

3

Escriba la línea siguiente para crear el hash para contener las líneas del archivo :

mi línea % ;
4

Insertar esta línea para abrir el archivo para la lectura :

local @ ARGV = ( $ file ) ;
5

Iniciar el bucle while que va a leer a través de cada línea del archivo :

while ( < > ) {
6

imprimir las líneas duplicadas a la pantalla con esta línea:

impresión si la línea $ $ _ { } + + ;}
Página 7

Guarde y cierre el archivo.