Error opening D:\ServerTools\Logs\ServerLog\((\d+)-(\d+)-(\d+)@(\d+)-(\d+)\.log
): Invalid argument at script.pl line 109


##</code><code>##

#!/usr/bin/perl -w

use DBI;
use File::Tail;

our $bWin;

BEGIN {
	$bWin = ($^O eq "MSWin32") ? 1 : 0;
}

&Loop;

sub Loop {
	print "Updating Server Log -> DB\n";
	&Update_DB_Actions;
}
sub Update_DB_Actions {
	my $dbh = DBI->connect('DBI:mysql:database=arma3;host=localhost','root','root') || die "Could not connect to database: $DBI::errstr";
        my $filename = q{ServerLog\((\d+)-(\d+)-(\d+)@(\d+)-(\d+)\.log)};
	# my ($sec,$min,$hour,$day,$month,$year) = (localtime)[0,1,2,3,4,5];
	# my $filename = sprintf("ServerLog(%02d-%02d-%04d).log",$month+1,$day,$year+1900);
	my $log = "D:\\ServerTools\\Logs\\$filename";
	my $qu_re1 = q{(.?) started server @ (\d+):(\d+):(\d+)};
	my $qu_re2 = q{(.?) restarted server @ (\d+):(\d+):(\d+)};
	my $qu_re3 = q{(.?) stopped server @ (\d+):(\d+):(\d+)};

          $file = File::Tail->new($log);
          while (defined($line=$file->read)) {
		my $sql = "INSERT INTO `actions` (log) VALUES (?)";
		$insa = $dbh->prepare($sql) or die $!;
		$insa->execute($line);
		print "Inserted Action!\n";
	}
	&Loop;
}