The Perl " diff "-funktionen bruges til at bestemme forskellen mellem to filer. Du åbner filerne og tildele filen indhold til en streng. Du kan derefter udføre " diff "-funktionen på begge strenge. Begge filer er evalueret , og forskellen er returneret til en tredje variabel, som du bruger til at udskrive resultaterne til brugerens browser . Instruktioner
1
Højreklik på Perl -fil, du vil bruge til at udføre kommandoen diff . Klik på " Åbn med " og vælge dit foretrukne Perl editor.
2
Åbn begge filer, du ønsker at sammenligne. Følgende kode åbner file1.txt og file2.txt : Hej
åben FIL1 , "> ", " file1.txt " open FIL2 , "> ", " file2.txt "
3
Tildel en streng for indholdet af hver af filerne . Følgende kode tildeler hver af de åbne filer til sit eget associeret streng:
$ Cont1 = read FIL1 , $ cont2 = read FIL2 ,
4
Sammenlign de to filindholdet og returnerer resultaterne til en tredje variabel. Følgende kode udfører sammenligningen funktionen : Hej
min $ diff = String :: Diff :: diff ( $ Cont1 , $ cont2 )
5
Udskriv resultaterne til brugerens browser . Følgende kode viser forskellen mellem de to filer : Hej
print $ diff ,