general_logをコネクションIDごとに別ファイルに分けるマン(2100年になると使えなくなる

gistfile1.txt

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my $file= "./general_query.log";
open(my $fh, "<", $file) or die;


my @buff= ();
while (<$fh>)
{
  chomp;
  if (/^2022-/)
  {
    ### Flush old buffer.
    print_split(join(" ", @buff));
    @buff= ();

    ### Stack new buffer.
    push(@buff, $_);
  }
  else
  {
    push(@buff, $_);
  }
}

### Flush last one buffer.
print_split(join(" ", @buff));



sub print_split
{
  my ($new_line)= @_;

  $new_line =~ /^(?<time>20-[\S]+)\s+(?<id>\d+)\s+(?<query>.+)/;
  open(my $fh, ">>", sprintf("pid/%d.log", $+{id}));
  print $fh $new_line, "\n";
  close($fh);

  return;
}

たぶん5.6とそれ以前だと「時分秒まで同じだとタイムスタンプは省略される」に引っかかってまともに動かないと思う