O'Reilly logo

Programmieren mit Perl by Jon Orwant, Tom Christiansen, Larry Wall

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

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 ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required