#!/usr/bin/perl -w
########################
# Modul Definition
#########################
use strict;
##########################
# Parameter Definition
#########################
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
my($date,$clock);
my ($suffix,$File1,$FileName,$ExtFile,$ReadFile,$line,$Ext,$ExtName,$allocDate,$AccountID,$ArraySize);
my (@Array,@Array2,@Array3,@Array4);
##########################
##########################
system("clear");
##########################
# Time-Calculation
##########################
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$date	=sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday);
$clock	=sprintf("%02d:%02d:%02d",$hour,$min,$sec);
###############################
# File-Operation
print"Read-File: ";
$ReadFile = <STDIN>;chomp($ReadFile);				# Read the Filename from command
$File1	= "/home/henrik/workspace/$ReadFile.log";
open (File1,"<$File1") || print "Error: Input-File dont exist";
@Array 		= <File1>;						# Copy File 2 Array
$ArraySize	= scalar(@Array);
print "Input-Array-Size: $ArraySize\n";
close(File1);							# Close the Input-File

foreach(@Array){
	$line	= shift(@Array);				# Read the next line to line-Parameter
	$Ext	= $1 if($line =~/EXTENSIONNUM=(\d+)/);		# Extract the Extension-Number
	$ExtName = $1 if(($line =~ /NAME=(\d+)/)||($line =~ /NAME=(\w+)(\d+)/));
	$allocDate = $1 if ($line =~ /DATEALLOCATED=(\d+-\d+-\d+)/);
	$AccountID = $1 if ($line =~ /ACCOUNTID=(\d+)/);
	push(@Array3,$ExtName," ",$Ext," ",$AccountID," ",$allocDate,"\n");
	push(@Array4,$Ext,"\n");
}

$ArraySize	= scalar(@Array4);
print "output-Array-Size: $ArraySize\n";

print "FileName: ";
$suffix=<STDIN>;chomp($suffix);
$FileName 	= "/home/henrik/workspace/$suffix.log";
$ExtFile	= "/home/henrik/workspace/$suffix-Extensions.log";
open (File2,">",$FileName)|| print "Error:Export-File dont writeable";
open (ExtFile,">",$ExtFile)|| print "Error: Extension-Export-File dont writeable";
print File2 @Array3;
print ExtFile @Array4;
close File2;
close ExtFile;