Perl - How extract file information for logrotate - perl

Question

i have following list of application log files (rotated) and i would get only new lines generated. For do this operation i've think to extract filename, inode and n. of rows from each file, for write it into a temporally file, who i would read each time before my elaboration (I am open to better solutions if you are).
This is my list of files:
root> ls -l
applog_s0.0.log
applog_s0.1.log
applog_s0.2.log
applog_s0.3.log
applog_s1.0.log
applog_s1.1.log
applog_s1.2.log
applog_s1.3.log
applog_s2.0.log
applog_s2.1.log
applog_s2.2.log
applog_s2.3.log
applog_s3.0.log
applog_s3.1.log
applog_s3.2.log
applog_s3.3.log
I can't just read the last log file in order of number, because it may have closed recently and I risk data losing.
This is my draft of script (draft because some instruction return compiled errors):
my $MY_DIR="/usr/cataclust/sharedfolder/logs/";
my %filelist;
# Load file list
foreach my $filename (glob("$MY_DIR/applog_s*.log")) {
my $ino = stat($filename); # Get inode of my file
my $nrows = $. ($filename); # this row doesn't work into script :( it works only by cmd line as perl -ne '}{ print $.' applog_s1.0.log
push( #{ $filelist { filename } }, $filename);
push( #{ $filelist { inode } }, $ino);
push( #{ $filelist { rows } }, $nrows);
}
# Elaborate log
foreach my $filename (glob("$IN_DIR/applog_s*.log")) {
open (FILE, $filename) or die "can't read open $filename";
$/ = "\n\n";
while( <FILE> ) {
my #rows = split /\n\n/;
my $ino = stat($filename);
if( $filename == $filelist{name} && $ino == $filelist{inode} ) {
if( $. < $filelist{rows} ) {
my $rown = $.;
if ($rows[$row] =~ m/\A\d.-\s(\d{8})\s(\d{2}:\d{2}:\d{2})\s-\s(\w+)\s-\s\/Extended Info/) {
if ($rows[$rown] =~ m/WARNING/ || $rows[$rown] =~ m/CRITICAL/ && $rows[$rown] !~ m/INFORMATION/) { # Shows only errors
my ($date, $time, $class, $message ) = $rows[$rown] =~ m/\A\d.-\s(\d{8})\s(\d{2}:\d{2}:\d{2})\s-\s(\w+)\s-\s\/Extended Info\n(\w.*)/;
push #evt, {date => $date, time => $time, classification => $class, information => $message};
}
}
}
}
}
}
This is log example:
0#- 20180403 11:11:11 - ERROR - /Extended Info
Fs Doesn't work...
1#- 20180403 11:12:13 - ERROR - /Extended Info
Fs Doesn't work...
could you help me to clarify?