La fonction Perl "diff" est utilisé pour déterminer la différence entre les deux fichiers . Vous ouvrez les fichiers et affecter le contenu d'un fichier à une chaîne. Vous pouvez ensuite exécuter la fonction "diff" sur les deux chaînes . Les deux fichiers sont évaluées, et la différence est renvoyé à une troisième variable que vous utilisez pour imprimer les résultats dans le navigateur de l'utilisateur. Instructions 1 clic droit sur le fichier Perl que vous souhaitez utiliser pour exécuter la commande diff. Cliquez sur " Ouvrir avec " et sélectionnez votre éditeur préféré Perl . 2 Ouvrez les deux fichiers que vous souhaitez comparer . Le code suivant ouvre file1.txt et file2.txt : FILE1 ouvert, "> ", " file1.txt " ouvert FILE2 , "> ", " file2.txt " 3 assigner une chaîne pour le contenu de chacun des fichiers . Le code suivant affecte chacun des fichiers ouverts à sa propre chaîne associée : cont1 $ = read FILE1 ; CONT2 $ = read FILE2 ; 4 comparer les deux le contenu des fichiers , et renvoyer les résultats à une troisième variable . Le code suivant remplit la fonction de comparaison : my $ diff = String :: Diff :: diff ( cont1 $ , CONT2 $ ) ; 5 imprimer les résultats dans le navigateur de l'utilisateur . Le code suivant affiche la différence entre les deux fichiers : print $ diff ;
|