#!/usr/bin/perl

use strict;
use warnings;
use File::Find;


# Erster Pfad (Ordner1)
my $base_path_a='/home/topeg/test1/';
# Zweiter Pfad (Ordner2)
my $base_path_b='/home/topeg/test2/';

# hash für alle Pfad/Dateinamen
my %files;

# Ordner 1 durchsuchen alle gefunden Dateien +=1
find(sub{found(1,$base_path_a)},  $base_path_a);
# Ordner 2 durchsuchen alle gefunden Dateien -=1
find(sub{found(-1,$base_path_b)},  $base_path_b);


# wenn der Wert =-1 dann ist die Datei zwar in Ordner2 aber nicht in Ordner1
print "nur in $base_path_b :\n  ";
print join("\n  ", sort map{$files{$_}{path}}grep{ $files{$_}{exists}<0 }keys(%files));
print "\n","#"x80,"\n";

# wenn der Wert =1 dann ist die Datei zwar in Ordner1 aber nicht in Ordner2
print "nur in $base_path_a :\n  ";
print join("\n  ", sort map{$files{$_}{path}}grep{ $files{$_}{exists}>0}keys(%files));
print "\n","#"x80,"\n";

# wenn der Wert =0 dann ist die Datei in Ordner1 und in Ordner2
print "existiert in $base_path_b und in $base_path_a :\n";
my @files=map{$files{$_}} sort grep{ $files{$_}{exists}==0}keys(%files);
print "  verändert in $base_path_b :\n";
for my $file (@files)
{
  my @stat_a=stat($base_path_a.$file->{path});
  my @stat_b=stat($base_path_b.$file->{path});
  my $modification_time_a=$stat_a[9];
  my $modification_time_b=$stat_b[9];
  if($modification_time_a < $modification_time_b)
  {
    print "    ".$file->{path}."\n";
  }
}

print "  verändert in $base_path_a :\n";
for my $file (@files)
{
  my @stat_a=stat($base_path_a.$file->{path});
  my @stat_b=stat($base_path_b.$file->{path});
  my $modification_time_a=$stat_a[9];
  my $modification_time_b=$stat_b[9];
  if($modification_time_a > $modification_time_b)
  {
    print "    ".$file->{path}."\n";
  }
}

print "  unverändert:\n";
for my $file (@files)
{
  my @stat_a=stat($base_path_a.$file->{path});
  my @stat_b=stat($base_path_b.$file->{path});
  my $modification_time_a=$stat_a[9];
  my $modification_time_b=$stat_b[9];
  if($modification_time_a == $modification_time_b)
  {
    print "    ".$file->{path}."\n";
  }
}

print "#"x80,"\n";

########################################################################
sub found
{
  my $add=shift;
  my $base=shift;

  if(-f $File::Find::name)
  {
    # remove basepath
    (my $file=$File::Find::name)=~s/^$base//;
    if($file)
    {
      $files{$file}{path}=$file;
      $files{$file}{exists}+=$add;
    }
  }
}