Wie man den Unterschied zwischen zwei Dateien mit PerlScript finden . Sie die Dateien öffnen und weisen Sie den Inhalt der Datei in einen String. Sie können dann die Funktion " Diff "-Funktion auf beiden Saiten. Beide Dateien werden ausgewertet , und die Differenz wird auf eine dritte Variable, die Sie zum Ausdrucken der Ergebnisse an den Browser des Benutzers verwenden zurückgegeben. Anleitung
1
rechten Maustaste auf die Datei Perl die Sie verwenden möchten , um den Unterschied Befehl auszuführen. Klicken Sie auf " Öffnen mit " und wählen Sie Ihre bevorzugte Perl Editor.
2
Öffnen Sie beide Dateien die Sie vergleichen möchten . Der folgende Code öffnet file1.txt und file2.txt :
offenen FILE1 , " >", " file1.txt " open FILE2 , " >", " file2.txt "
3
zuweisen einer Zeichenfolge für den Inhalt der einzelnen Dateien . Der folgende Code ordnet jedem der geöffneten Dateien seiner eigenen verbunden string:
$ cont1 = read FILE1 ; $ cont2 = read FILE2 ;
4
Vergleichen Sie die beiden Dateiinhalte und die Ergebnisse an eine dritte Variable. Der folgende Code führt den Vergleich -Funktion:
my $ diff = String :: Diff :: diff ( $ cont1 , $ cont2 );
5
drucken die Ergebnisse an den Browser des Benutzers . Der folgende Code zeigt die Differenz zwischen den beiden Dateien :
print $ diff ;