Perl - vergleichen von Ordner Inhalten

06/09/2007 - 13:50 von fantrixx | Report spam
Hi all,

ich möchte gerne mit Perl folgende Sache schreiben.
Also das Script soll in zwei Ordner reingucken und schauen welche
Datei in dem jeweiligen Ordner nicht verfügbar ist und das dann als
ein String ausgeben.

Weiss einer wie ich sowas angehen kann ?

mfg
 

Lesen sie die antworten

#1 Wolf Behrenhoff
06/09/2007 - 14:10 | Warnen spam
schrieb:
Hi all,

ich möchte gerne mit Perl folgende Sache schreiben.
Also das Script soll in zwei Ordner reingucken und schauen welche
Datei in dem jeweiligen Ordner nicht verfügbar ist und das dann als
ein String ausgeben.

Weiss einer wie ich sowas angehen kann ?



Schnellschuss:

$dir1='test1';
$dir2='test2';
%d1 = map {s!.*/!!; ($_,1)} <$dir1/*>;
%d2 = map {s!.*/!!; ($_,1)} <$dir2/*>;
print "Dateien, die in $dir1 sind und nicht in $dir2";
for (keys %d1) {
print "$_" if !exists $d2{$_};
}
print "Dateien, die in $dir2 sind und nicht in $dir1";
for (keys %d2) {
print "$_" if !exists $d1{$_};
}

Wolf

Ähnliche fragen