Comparando contenido de archivos usando Perl

En Perl , podemos comparar fácilmente el contenido de dos archivos usando el módulo File::Compare . Este módulo proporciona una función llamada comparar , que ayuda a comparar el contenido de dos archivos especificados como argumentos. Si los datos presentes en ambos archivos resultan ser los mismos, la función devuelve 0 como resultado, si los datos en los archivos pasados ​​son diferentes, el valor devuelto es 1 y si se produjo algún error al acceder a los archivos especificados/pasados. archivos, devuelve el valor como -1 . 
Sintaxis:

use File::Compare;
$compare = compare('FILE_NAME_1', 'FILE_NAME_2');

Nota:

• Mismo contenido: valor de retorno [0]
• Contenido diferente: valor de retorno [1]
• Error al acceder a archivos: valor de retorno [-1]

Ejemplo:  
Archivos presentes en la carpeta.   Cuando el contenido de los archivos es el mismo: 

#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
# Module to use compare function
use File::Compare;
 
# compare function to access the passed files.
$compare = compare("gfg_a.txt", "gfg_c.txt");
 
# checking if the files are same
if ($compare == 0)
{
    print "Files are equal. \n";
}
 
# checking if the files are different
elsif ($compare == 1)
{
    print "Files are not equal. \n";
}
 
# checking if the file is not accessible
elsif($compare == -1)
{
    print "Error Occurred. \n";
}
 
exit;

Producción:

Cuando el contenido de los Archivos es diferente: 

#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
# Module to use compare function
use File::Compare;
 
# compare function to access the passed files.
$compare = compare("gfg_a.txt", "gfg_b.txt");
 
# checking if the files are same
if ($compare == 0)
{
    print "Files are equal. \n";
}
 
# checking if the files are different
elsif ($compare == 1)
{
    print "Files are not equal. \n";
}
 
# checking if the file is not accessible
elsif($compare == -1)
{
    print "Error Occurred. \n";
}
 
exit;

Producción:

Cuando el archivo no es accesible: 

#!/usr/bin/perl
print "Content-type: text/html\n\n";
 
# Module to use compare function
use File::Compare;
 
# compare function to access the passed files.
$compare = compare("gfg_a.txt", "gfg_d.txt");
 
# checking if the files are same
if ($compare == 0)
{
    print "Files are equal. \n";
}
 
# checking if the files are different
elsif ($compare == 1)
{
    print "Files are not equal. \n";
}
 
# checking if the file is not accessible
elsif($compare == -1)
{
    print "Error occurred. The file is not accessible. \n";
}
 
exit;

Producción: