De functie Perl " diff " wordt gebruikt om het verschil tussen twee bestanden te bepalen zoeken . U opent de bestanden en de inhoud van het bestand toe te wijzen aan een string . U kunt vervolgens uitvoeren van de functie " diff " op beide strings . Beide bestanden worden geëvalueerd , en het verschil wordt teruggestuurd naar een derde variabele die u gebruikt om af te drukken uit de resultaten naar de browser van de gebruiker . Instructies
1 rechtermuisknop op de Perl- bestand dat u wilt gebruiken om het diff commando uit te voeren . Klik op ' Openen met ' en selecteer de gewenste Perl editor . Kopen van 2 Open beide bestanden die u wilt vergelijken . De volgende code opent file1.txt en file2.txt : geopend FILE1
, " > " , " file1.txt " open BESTAND2 , " > " , " file2.txt "
3 Wijs een string voor de inhoud van elk van de bestanden . De volgende code wijst elk van de geopende bestanden op zijn eigen bijbehorende string:
$ Cont1 = read FILE1 ; $ cont2 = read BESTAND2 ;
4 Vergelijk de twee inhoud van bestanden , en terugkeer van de resultaten van een derde variabele . De volgende code voert de vergelijking functie :
mijn $ diff = String :: Diff :: diff ( $ Cont1 , $ cont2 ) ;
5 Print de resultaten naar de browser van de gebruiker . De volgende code toont het verschil tussen de twee bestanden : afdruk
$ diff ;
|
