Perl er et generelt formål programmeringssprog, der kan bruges som en shell eller Web scriptsprog. Brug Perl til at finde identiske linjer i en tekst -fil og udskrive dem til skærmen eller til en anden fil . Perl hash variabel anvendes til at indeholde listedata . En while-løkke parser filen og tæller antallet af gange den linje der findes i filen. Instruktioner
1

Åbn en tom almindelig tekstfil . Skriv følgende linjer til at starte Perl script : Hej

# /usr /bin /perluse streng , bruge advarsler
2

Indtast denne linje for at skabe den variabel, der indeholder filen ! name: .

min $ file = ' filename.txt «

Erstat" filename.txt " med navnet på den fil, hvori du vil søge efter dubletter
< br >
3

Skriv følgende linje for at skabe den hash til at indeholde linjerne i filen : Hej

min% linje
4

Indsæt denne linie til at åbne filen for læsning : Hej

lokal @ ARGV = ( $ file ) ;
5

Start while-løkke , der vil læse gennem hver linje i filen : Hej

while ( < > ) {
6

Udskriv dublerede linjer til skærmen med denne linje : Hej

print , hvis $ line { $ _ } + + ;}

7

Gem og luk filen.