#!bin\perl	

$quelle = $ARGV[0];
$x = $ARGV[0];
$x =~ s/(\w+)\.\w+/$1/;
$ziel = $x;

#open (INPUT,"<$quell_verzeichnis$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
open (INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
undef $/;
open (OUTPUT,">$ziel.txt") or die "konnte $ziel nicht oeffnen,$!\n";
$_ = <INPUT>; 
close (INPUT);

print OUTPUT "$_";

@mach0 = s/DUT No\s(.+?)End Sequence: SetIdleCurrent\s/gsm;

foreach (@mach0)
{
	($seriennummer)	= /Measurement:([0-9]{10})/;
	open (OUTPUT2,">$seriennummer.txt") or die "konnte $ziel nicht oeffnen,$!\n";
	
	#Anfang der Datei
	print OUTPUT2 "DUT No\n";
	
	print OUTPUT2 @mach0;
	
	#Ende der Datei
	print OUTPUT2 "End Sequence: SetIdleCurrent";
	close OUTPUT2;
}

print OUTPUT "\n";

close OUTPUT;

#~~~> END of Code