#Original Working code prior to 2nd date format
#!/usr/bin/perl
use IO::File;

my $file = 'file.location.log';
open(MYLOG, "<$file") or die "Can't open $file: " . $!;
my @mylog = <MYLOG>;
close(MYLOG);

my $myfixedlog = join("ENDOFLINE", @mylog);
#                           Date      1               ,T 2,        Time  3                 ,          4,         5 ,       6    ,   7     , 8  ,   9
while ($myfixedlog =~ /([0-9]{4}-[0-9][0-9]-[0-9][0-9])(T)([0-9][0-9]:[0-9][0-9]:[0-9][0-9])(.\d+\s\d+.\d+.\s)(.{16}\s)(\[\w+\])(\w+\S\s+)(.+?)(ENDOFLINE)/smg) {
                $date = $1;
                $severity = $7;
                $timestamp = $3;
                $errormsg = $6;
                chomp($errormsg);


                      print "New Error Found...\n";
                      print "0 $0\n";
                      print "1 $1\n";
                      print "2 $2\n";
                      print "3 $3\n";
                      print "4 $4\n";
                      print "5 $5\n";
                      print "6 $6\n";
                      print "7 $7\n";
                      print "8 $8\n";
                      print "9 $9\n";
}

##</code><code>##

use 5.18.0;
use warnings;
use IO::File;
use Time::Piece;


my $servername = "Server1";

# This is the Location of the Original Log File
my $OLF = '\\\server\logs\server.log';

# This is the location of the file parsed
my $file = 'server.log';
open(MYLOG, "<$file") or die "Can't open $file: " . $!;
my @mylog = <MYLOG>;
close(MYLOG);

# This is the Location\Name of the file Being Created
my $CSVLOG = 'output.csv';
open(OUTLOG, ">>$CSVLOG") ;
my @outlog = <OUTLOG>;


my $runtimestamp = localtime(time);

my $myfixedlog = join("ENDOFLINE", @mylog);


print OUTLOG "$OLF\n";
print OUTLOG "Server, Date, TimeStamp, Severity, ErrorMsg, \n";
#                           Date      1               ,T 2,        Time  3                 ,          4,         5 ,       6    ,   7  , 8  ,   9
while ($myfixedlog =~ /([0-9]{4}-[0-9][0-9]-[0-9][0-9])(T)([0-9][0-9]:[0-9][0-9]:[0-9][0-9])(.\d+\s\d+.\d+.\s)(.{16}\s)(\[\w+\])(\w+\S)(.+?)(ENDOFLINE)/smg) {
             my   $date = $1;
             my   $timestamp = $3;
             my   $severity = $7;
             my   $errormsg = join "",$6, $7, $8;
                  chomp($errormsg);
                
           
                 if ($errormsg =~ /DfException/ || $severity eq "error:" || $errormsg =~ /started in/){
       
                      
                          foreach ($errormsg =~ /DfException/ || $severity eq "error:" || $errormsg =~ /started in/)
                          {print OUTLOG "$servername, $date, $timestamp, $severity, $errormsg \n"}};    
        #                               print OUTLOG "$servername, $date, $timestamp, $severity, $errormsg, \n"
}

 
print OUTLOG @outlog;
close(OUTLOG);
print "CSV - File Created  Log File: $CSVLOG";


##</code><code>##

DateTime::Format::Flexible;
my $dt = DateTime::Format::Flexible->parse_datetime( $date, lang => ['en'], );