#!/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";