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 ;