#!/usr/bin/perl -w

use strict;
use warnings;
use POSIX;
use utf8;
use File::Find;


my ($datei);
my (@files);
my ($txtdatein);
my ($mumpitz);
my ($inhalttxt);
my ($files);
my ($loesch);
my @loesch;
my ($alter);
my ($kurzalter);
my ($txtdatei);
my @pfad = glob "*.txt";
my $dir= "/var/lib/testverzeichnis/k_loesch/k_transport/";
my $verzeichnis = "/var/lib/testverzeichnis/k_loesch";
my $mydate = &datum_zeit("D.M.J");


find(\&wanted,$dir) ;

sub wanted
{
  my $file = $File::Find::name;
#schreibt alle echten Datein in @files
  push (@files,$file) if(-f $file); 
}

opendir(DIR, $verzeichnis);
#packt alle pfade die auf eine textdatei zeigen in @txtdatein
my @txtdatein = grep{ $_ =~ /\.txt$/ }readdir(DIR);     
closedir DIR;

foreach $txtdatein (@txtdatein)
{
  #öffnet diese textdateien
  open (TXT,"<$txtdatein");
#und packt den inhalt in @alletxtdatein 
    my @alletxtdatein = <TXT>;                                  
  close (TXT);
  foreach $inhalttxt (@alletxtdatein)
  {
    open (INHALTOUT,">>inhalt_aller_txt_datein.txt");
#schreibt den Inhalt aller textdatein in eine textdatei
      print INHALTOUT "$inhalttxt";                     
    close (INHALTOUT);
  }
}

open (INHALTIN,"<inhalt_aller_txt_datein.txt"); 
#liest den inhalt in ein array  
  my @inhlattxt = <INHALTIN>;
close (INHALTIN);

my %h = map { $_ => 1 } @inhlattxt;
#vergleicht beide arrays und löscht in @files alles was in @inhalttxt (inhalt aller txtdatein) schon steht
@files = grep { ! exists $h{$_} } @files;
 
open (ZWEITE,">>$mydate.txt");
#schreibt neuen inhalt in $mydate.txt (der Name dient nur der Übersichtlichkeit
  print ZWEITE "@files";                                                
close (ZWEITE);

foreach $txtdatei (@pfad)
{
  $alter = -M "$txtdatei";                                               
  $kurzalter = sprintf "%.0f",$alter;
  if ($kurzalter > 14)                                                  #wenn die erstellte txtdatei älter als 14 tage ist
  {
    open (LOESCH,"<$txtdatei");                                 
#wird der inhalt eingelesen 
      @loesch = <LOESCH>;
    close (LOESCH);
    foreach $loesch (@loesch)
    {
      print "$loesch\n";
      unlink "$loesch"; #und dann gelöscht
    }
    unlink ("$txtdatei");
  }
}


## Die sub ist nicht sooo wichtig sah nur schön aus mit dem datum!!

sub datum_zeit
{

        my $p=$_[0];
        my %DATUM_ZEIT;
        my $timeparameter;
        my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
        $Monat+=1;
        $Jahrestag+=1;
        $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
        $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
        $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
        $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
        $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
        $Jahr+=1900;
        
        $DATUM_ZEIT{'J'}=$Jahr;
        $DATUM_ZEIT{'M'}=$Monat;
        $DATUM_ZEIT{'D'}=$Monatstag;
        $DATUM_ZEIT{'h'}=$Stunden;
        $DATUM_ZEIT{'m'}=$Minuten;
        $DATUM_ZEIT{'s'}=$Sekunden;
        $DATUM_ZEIT{'T'}=$Wochentag;

        if ($p)
        {
                $p=~s/(J|M|D|h|m|s|T)/$DATUM_ZEIT{$1}/g, while ($p=~/J|M|D|h|m|s|T/);
        }
        else
        {
                $p=$Jahr.$Monat.$Monatstag.'_'.$Stunden.$Minuten.$ Sekunden;
        }
        return $p;
}
unlink ("inhalt_aller_txt_datein.txt");

my %h = map { $_ => 1 } @inhlattxt;
@files = grep { ! exists $h{$_} } @files;