So finden Duplikate in mit Perl

Perl ist eine Allzweck-Programmiersprache, die als eine Shell oder Web-Skriptsprache verwendet werden kann. Verwenden Sie Perl, um doppelte Zeilen in eine beliebige Textdatei zu finden und auf dem Bildschirm oder in eine andere Datei zu drucken. Die Perl-Hash-Variable wird verwendet, um die Listendaten enthalten. Eine while-Schleife analysiert die Datei und zählt die Anzahl der Zeiten, die die Zeile in der Datei gefunden wird.

Anweisungen

1 Öffnen Sie eine leere, unformatierte Textdatei. Geben Sie die folgenden Zeilen um das Perl-Skript zu starten:

! / Usr/bin/Perl Verwendung streng;Verwenden Sie Warnungen;

2 Geben Sie diese Zeile, um die Variable zu erstellen, die den Namen der Datei enthält:

mein $file = "filename.txt";

Ersetzen Sie "Dateiname.txt" mit dem Namen der Datei, in dem Sie nach Dubletten suchen möchten.

3 Geben Sie die folgende Zeile, um die Zeilen der Datei enthält den Hash zu erstellen:

meine Linie %;

4 Fügen Sie diese Zeile, um die Datei zum Lesen öffnen:

lokale @ARGV = ($file);

5 Starten Sie die While-Schleife, die durch jede Zeile der Datei gelesen wird:

während () {}

6 Drucken Sie die doppelten Zeilen auf dem Bildschirm mit der folgenden Zeile:

print If $line {$_} ++;}

7 Speichern Sie und schließen Sie die Datei.