Cómo encontrar la diferencia entre dos archivos con PerlScript

La función de Perl "diff " se usa para determinar la diferencia entre dos archivos . Abre los archivos y asignar el contenido del archivo en una cadena. A continuación, puede ejecutar la función "diff " en ambas cadenas . Se evalúan dos archivos , y la diferencia se devuelve a una tercera variable que se utiliza para imprimir los resultados al navegador del usuario. Instrucciones
1

Haga clic en el archivo Perl que desea utilizar para ejecutar el comando diff. Haga clic en " Abrir con " y seleccione su editor preferido Perl .
2

Abra ambos archivos que desea comparar . El siguiente código abre file1.txt y file2.txt :

ARCHIVO1 abierto , "> ", " file1.txt " abierto ARCHIVO2 , "> ", " file2.txt "
3

Asigne una cadena para el contenido de cada uno de los archivos . El código siguiente se asigna a cada uno de los expedientes a su propia cadena asociada :

$ cont1 = read ARCHIVO1 , $ cont2 = read ARCHIVO2 ;
4

Compara los dos contenidos del archivo , y devolver los resultados a una tercera variable . El código siguiente realiza la función de comparación :

my $ diff = String :: Dif. :: diff ( $ cont1 , $ cont2 ) ;
5

imprimir los resultados al navegador del usuario . El siguiente código muestra la diferencia entre los dos archivos :

print $ diff ;