#!/usr/bin/perl -w

use strict;
use warnings;
use POSIX;
use utf8;
use File::Find;
use diagnostics;
my $dir= "/var/lib/testverzeichnis/k_loesch/k_transport/";
my ($datei);
my (@files);
my $mydate = &datum_zeit("D.M.J");
my ($bla);
my $verzeichnis = "/var/lib/testverzeichnis/k_loesch";
my ($mumpitz);
my ($text);
my ($blo);
my ($blu);
my ($loesch);
my @loesch;
find(\&wanted,$dir) ;

sub wanted
{
my $file = $File::Find::name;
push (@files,$file) if(-f $file);
}
foreach $blu (@files)
{
open (BLU,">>blu.txt");
print BLU "$blu\n";
close (BLU);
}
open (BLI,"<blu.txt");
my @bli = <BLI>;
close (BLI);
unlink ("blu.txt");
opendir(DIR, $verzeichnis) || die "Kann Verzeichnis nicht oeffnen $dir:";
my @VerzeichnisInhalt = grep{ $_ =~ /\.txt$/ }readdir(DIR);
closedir DIR;


foreach $bla (@VerzeichnisInhalt)
{
open (TXT,"<$bla");
my @bla = <TXT>;
close (TXT);

foreach $text (@bla)
{
open (BLA,">>bla.txt");
print BLA "$text";
close (BLA);
}
}
open (BLO,"<bla.txt");
my @blo = <BLO>;
close (BLO);


my %h = map { $_ => 1 } @blo;
@bli = grep { ! exists $h{$_} } @bli;
print @bli;
open (ZWEITE,">>$mydate.txt");
print ZWEITE "@bli";
close (ZWEITE);
my ($alter);
my ($kurzalter);
my ($txt);
my @pfad = glob "*.txt";
foreach $txt (@pfad)
{
                $alter = -M "$txt";
                $kurzalter = sprintf "%.0f",$alter;
                if ($kurzalter > 14)
                {
                        open (LOESCH,"<$txt");
                        @loesch = <LOESCH>;
                        close (LOESCH);
                        foreach $loesch (@loesch)
                        {print "$loesch\n";
                        unlink "$loesch";}
                        unlink ("$txt");
                }
}




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 ("bla.txt");