Programmieren mit Perl

File::Compare

use File::Compare;

printf "fileA und fileB sind %s.\n",
    compare("fileA","fileB") ? "verschieden" : "identisch";

use File::Compare 'cmp';
sub munge($) {
    my $line = $_[0];
    for ($line) {
s/^\s+//;   # führende Whitespaces entfernen.
ss/\s+$//;  # anhängende Whitespaces entfernen.
    }
    return uc($line);
}

if (not cmp("fileA", "fileB", sub {munge $_[0] eq munge $_[1]} )) {
    print "fileA und fileB sind in gewisser Weise gleich.\n";
}

Das File::Compare-Modul stellt eine Funktion, compare, zur Verfügung, die den Inhalt der beiden an sie übergebenen Dateien vergleicht. Sie gibt 0 zurück, wenn die Dateien die gleichen Daten enthalten, 1, wenn sie unterschiedliche Daten enthalten, und −1, wenn beim Zugriff auf die genannten Dateien ein Fehler aufgetreten ...