process last 3 logs by mtime

diff --git a/parse-node-logs.pl b/parse-node-logs.pl
index d661166..2e76c76 100755 (executable)
--- a/parse-node-logs.pl
+++ b/parse-node-logs.pl
@@ -17,10 +17,12 @@ warn "# truncate table nodelog";
 $dbh->do( qq{ truncate table nodelog } ); # FIXME
 my $sth = $dbh->prepare(qq{insert into nodelog (time,json) values (?,?)});
 
+my $last_files = $ENV{LAST} || 3; # process last 3 logs by mtime
+
 foreach my $filename (
-               sort(glob("$path/node-red-out__2023-07-*")),
-               "$path/node-red-out.log"
+               sort { -M $a <=> -M $b } (glob("$path/node-red-out*.log")),
        ) {
+       last if $last_files-- == 0;
        warn "# $filename";
        open(my $log, '<', $filename);
        my $in_json = 0;