#!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);

rename("$pfadDerDateien/$datei", "$pfadDerDateien/$datum$datei.txt");

rename("$pfadDerDateien/$datei", "$pfadDerDateien/$datum$datei.txt") or die $!;

open (in,'<',"$pfadDerDateien/$datei") or die "Fehler: $!";

opendir(DIR,$pfadDerDateien);

while(my $datei = readdir(DIR)) 
{
		#hier werden die Dateien umbenannt, da diese mit der Seriennummer anfangen
		#sie müssen aber mit dem Datum anfangen
		foreach my $neuerName ($datei =~ /[0-9]{11,}/g) 
		{ 
			print "$neuerName ";
			rename("$pfadDerDateien/$datei", "$pfadDerDateien/$neuerName.txt");
		}
close(FILE);
}
closedir(DIR);