Perl è un linguaggio di programmazione di uso generale che può essere utilizzato come un linguaggio di scripting di shell o Web. Usare Perl per trovare le linee duplicate in qualsiasi file di testo e stamparle sullo schermo, o in un altro file. La variabile hash Perl è utilizzato per contenere i dati della lista. Un ciclo while analizza il file e conta il numero di volte che la linea viene trovato nel file.

istruzione

1 Aprire un file di testo vuoto. Digitare le righe seguenti per avviare lo script Perl:

! / Usr / bin / perl

use strict;
utilizzare avvertimenti;

2 Inserisci questa linea per creare la variabile che contiene il nome del file:

i miei $ file = 'filename.txt';

Sostituire "nomefile.txt" con il nome del file in cui si desidera cercare i duplicati.

3 Digitare la seguente riga per creare l'hash per contenere le righe del file:

la mia linea;

4 Inserire questa riga per aprire il file per la lettura:

@ARGV Locale = ($ file);

5 Inizia il ciclo while che leggerà attraverso ogni riga del file:

while (<>) {

6 Stampa le linee duplicate allo schermo con questa linea:

stampare se $ line {$ _} ++;}

7 Salvare e chiudere il file.