¿Cómo encontrar duplicados en el archivo que utiliza Perl

Perl es un lenguaje de programación de propósito general que puede ser utilizado como un lenguaje de script shell o Web. Utilizar Perl para encontrar las líneas duplicadas en cualquier archivo de texto e imprimirlos a 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 Abrir un archivo de texto plano en blanco. Escriba las líneas siguientes para iniciar el script de Perl:

! / Usr / bin / perl

use strict;
utilizar advertencias;

2 Introduzca esta línea para crear la variable que contiene el nombre del archivo:

mis archivos $ = 'filename.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 linea;

4 Inserte esta línea para abrir el archivo para su lectura:

@ARGV Locales = ($ archivo);

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

mientras que (<>) {

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

imprimir si la línea $ {} $ _ ++;}

7 Guarde y cierre el archivo.