The Perl " diff " -funktionen används för att bestämma skillnaden mellan två filer . Du öppnar filerna och tilldela filen innehåll till en sträng . Du kan sedan köra " diff " -funktionen på båda strängarna . Båda filerna utvärderas , och skillnaden återförs till en tredje variabel som du använder för att skriva ut resultatet till användarens webbläsare . Instruktioner
1
Högerklicka på Perl -fil du vill använda för att utföra kommandot diff . Klicka på " Öppna med " och välj önskad Perl redaktör .
2
Öppna båda filerna du vill jämföra . Följande kod öppnar fil1.txt och file2.txt :
öppen FIL1 , " > " , " fil1.txt " open FIL2 , " > " , " file2.txt " Addera 3
Tilldela ett sträng för innehållet i varje fil . Följande kod tilldelar varje av de öppna filerna till sin egen tillhörande sträng :
$ cont1 = read FIL1 , $ cont2 = read FIL2 ,
4
Jämför de två filens innehåll , och returnerar resultaten till en tredje variabel. Följande kod utför jämförelsen funktion :
min $ diff = String :: Skillnad :: diff ( $ cont1 , $ cont2 ) ,
5
ut resultatet till användarens webbläsare . Följande kod visar skillnaden mellan de två filerna :
print $ diff ,
