Perl est un langage de programmation général qui peut être utilisé comme un shell ou langage de script Web . Utiliser Perl pour trouver les lignes en double dans un fichier texte et les imprimer à l'écran , ou dans un autre fichier . La variable hash Perl est utilisé pour contenir des données de la liste. Une boucle while analyse le fichier et compte le nombre de fois où la ligne est trouvée dans le fichier . Instructions
1

Ouvrez un fichier texte vierge. Tapez les lignes suivantes pour lancer le script Perl :

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

Entrez cette ligne pour créer la variable qui contient le fichier ! nom de famille: .

my $ file = ' filename.txt ';

Remplacer " filename.txt " avec le nom du fichier dans lequel vous souhaitez rechercher des doublons

3

Tapez la ligne suivante pour créer le hachage pour contenir les lignes du fichier :

ma ligne % ;
4

Insérer cette ligne pour ouvrir le fichier en lecture :

locale @ ARGV = ( $ file) ;
5

Début de la boucle while qui va lire chaque ligne du fichier :

while (<> ) {
6

Imprimer les lignes en double à l'écran avec cette ligne:

impression si $ line {$ _} + +; }

7

Sauvegardez et fermez le fichier .