Perl ist eine Allzweck- Programmiersprache, die als Shell- oder Web -Skriptsprache genutzt werden kann. Verwenden Perl , um doppelte Zeilen in einem beliebigen Text- Datei zu finden und auszudrucken , um den Bildschirm oder auf eine andere Datei . Das Perl- Hash Variable verwendet wird , um Liste Daten enthalten. Eine while-Schleife analysiert die Datei und zählt die Anzahl , wie oft die Zeile in der Datei zu finden ist. Anleitung
1

Öffnen Sie eine leere Textdatei . Geben Sie die folgenden Zeilen in das Perl-Skript zu starten:

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

Geben Sie folgende Zeile in die Variable, die die Datei enthält erstellen ! Name:.

my $ file = ' filename.txt ';

Ersetzen " filename.txt " mit dem Namen der Datei , in der Sie nach Duplikaten durchsuchen

3

Geben Sie die folgende Zeile, um den Hash zu erstellen , um die Zeilen der Datei enthalten :

my% Linie ;
4

Insert diese Linie zu öffnen die Datei zum Lesen :

local @ ARGV = ( $ file );
5

starten while-Schleife , die durch jede Zeile der Datei gelesen werden :

while ( <> ) {
6

drucken die doppelten Linien auf den Bildschirm mit dieser Zeile:

Druck if $ Zeile { $ _ } + +; }
Seite 7

Speichern und schließen Sie die Datei.