Perl é uma linguagem de programação de propósito geral que pode ser usado como um escudo ou linguagem de script web. Use Perl para encontrar linhas duplicadas em qualquer arquivo de texto e imprimi-los para a tela, ou para outro arquivo. A variável de hash Perl é usado para conter dados da lista. Um loop while analisa o arquivo e conta o número de vezes que a linha é encontrada no arquivo . Instruções
1

Abra um arquivo de texto em branco. Digite as seguintes linhas para iniciar o script Perl :

# /usr /bin /perluse estrito ; usar advertências ;
2

Digite esta linha para criar a variável que contém o arquivo nome :

my $ arquivo = ' arquivo.txt ';

Substituir " arquivo.txt " com o nome do arquivo no qual você deseja procurar duplicatas
< . br>
3

Digite a seguinte linha para criar o hash para conter as linhas do arquivo :

minha linha %;
4

Insira esta linha para abrir o arquivo para leitura :

@ ARGV local = ($ arquivo );
5

Comece o loop while que vai ler cada linha do arquivo :

while ( <>) {
6

Imprimir as linhas duplicadas para a tela com esta linha :

imprimir if $ linha { $ _ } + +; }

7

Salvar e fechar o arquivo.