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
fantrixx@googlemail.com 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\n";
for (keys %d1) {
print "$_\n" if !exists $d2{$_};
}
print "Dateien, die in $dir2 sind und nicht in $dir1\n";
for (keys %d2) {
print "$_\n" if !exists $d1{$_};
}
Wolf