#!bin\perl
use strict;
use warnings;

#HIER DEN PFAD FÜR DIE ORIGINELLEN DATEIEN ANGEBEN, WO DIESE STEHEN
my $pfadUrsprung = "C:/Documents and Settings/Desktop/a";

#HIER DEN PFAD FÜR DIE DATEIEN ANGEBEN, WO DIESE GEHOLT WERDEN SOLLEN
my $pfadDerDateien = "C:/Documents and Settings/Desktop/tmp";

#HIER DEN PFAD FÜR DIE ZU ERSTELLENDE DATEI ANGEBEN
my $pfadDerAusgabeDatei = "C:/Documents and Settings/Desktop/";


opendir(DIR,$pfadDerDateien);
	my $datum;
	my $datei;
	
	while($datei = readdir(DIR)) 
	{
		print $datei."\n";
		open (in,'<',"$pfadDerDateien/$datei");
		
		while (<in>)
		{
			($datum)	= /Test TimeStamp: (\d\d\d\d)-(\d\d)-(\d\d)T(\d\d):(\d\d):(\d\d)\n/; 
			$datum 		= "$3$2$1$4$5$6";
		}
	close(FILE);
	#print $datum;
	rename("$pfadDerDateien/$datei", "$pfadDerDateien/$datum$datei.txt");
	
}
closedir(DIR);