The Perl " diff "-funksjonen er benyttet for å beregne forskjellen mellom to filer . Du åpner filene og tilordne filen innhold til en streng. Du kan deretter utføre " diff "-funksjonen på begge strenger . Begge filene blir evaluert , og forskjellen er returnert til en tredje variabel som du bruker til å skrive ut resultatene til brukerens nettleser . Instruksjoner
en

Høyreklikk Perl -filen du vil bruke til å utføre diff kommandoen. Klikk på " Åpne med ", og velg din foretrukne Perl editor.
2

Åpne begge filene du vil sammenligne. Følgende kode åpner file1.txt og file2.txt : en

åpen FIL1 , ">" , " file1.txt " open FIL2 , ">" , " file2.txt "
3

Tilordne en streng for innholdet i hver av filene . Følgende kode gir hvert av de åpne filene til sin egen forbundet streng : en

$ cont1 = read FIL1 , $ cont2 = read FIL2 ;
4

Sammenlign de to filinnhold , og returnere resultatene til en tredje variabel . Følgende kode utfører sammenligningen funksjon : en

min $ diff = String :: Diff :: diff ( $ cont1 , $ cont2 ) ;
5

Skriv resultatene til brukerens nettleser . Følgende kode viser forskjellen mellom to filer : en

print $ diff ;