A função " diff" Perl é usado para determinar a diferença entre dois arquivos . Você abre os arquivos e atribuir o conteúdo do arquivo para uma string. Você pode então executar a função "diff " em ambas as cordas. Ambos os arquivos são avaliadas, e que a diferença é devolvida a uma terceira variável que você usa para imprimir os resultados para o navegador do usuário. Instruções 
 1 
 botão direito do mouse o arquivo Perl que você deseja usar para executar o comando diff . Clique em " Abrir com " e selecione o seu editor preferido Perl . 
 2 
 Abra ambos os arquivos que você deseja comparar . O código a seguir abre file1.txt e arquivo2.txt : 
 
 abrir FILE1 , "> ", " file1.txt " aberto FILE2 , "> ", " arquivo2.txt " 
 3 
 Atribuir uma string para o conteúdo de cada um dos arquivos . O código a seguir atribui a cada um dos arquivos abertos para a sua própria seqüência associada : 
 
 $ CONT1 = leitura FILE1 ; $ cont2 = leitura FILE2 ; 
 4 
 Compare as duas conteúdo do arquivo, e retornar os resultados de uma terceira variável . O código a seguir executa a função de comparação : 
 
 meu $ diff = Cadeia :: Diff :: diff ( $ CONT1 , $ cont2 ); 
 5 
 Imprimir os resultados para o browser do usuário . O código a seguir mostra a diferença entre os dois arquivos : 
 
 print $ diff ;