#!/usr/bin/perl
use strict;

# Alter der Dateien in Sekunden angeben
my $age =  50000; # In Sekunden angeben!

# Endung wird dreistellig übergeben
my $ending = ($ARGV[0]);

# Pfad wird übergeben
my $path = ($ARGV[1]);

# Arbeitsverzeichnis für temporäre Dateilisten
my $workdirectory = "/home/edv";

# Logverzeichnis für gespeicherte Daten
my $savedirectory = "/var/log";

# Counter auf Null setzen
my $counter = 0;

# Sicherheitsausgabe
print "\nSuche alle Dateien mit Endung: $ending im Pfad: $path\n\n"; 

# Liste mit zu überprüfenden Dateien erstellen
system("find $path -type f -name \*.$ending > $workdirectory/cleanup.list");

# Datei einlesen
open (DATEI, "$workdirectory/cleanup.list") || die "Datei nicht gefunden";

foreach my $line ( <DATEI> ) 
{ 
        $counter++;     
        # Dateistatistik mittels stat bestimmen
        my @stat = stat($line);
        print "Letzte Zugriffszeit:$stat[8]\n";
        # JA/NEIN (True/False) Wert
        if ((time - $stat[8]) > $age) 
        { 
                # Dateien loeschen per unlink
                print "Gelöscht:$line";
                unlink($line);
        }               
}       
close (DATEI);

print "\nDateien:$counter\n\n";