Re: Close a file and reopen a new one at midnight

[aitap]

It looks like you are running a UNIX-like system. You may want to install a signal handler to reopen the filehandle and either alarm at midnight (and catch the ALRM signal) or send some signal (USR1, for example) via cron daemon and handle it. You can even automatically compress and/or remove old files using logrotate if you want.

[0day]

my $timeout = 24*60*60 - ($hour*3600 + $min*60 + $sec);
while(1) {
        eval {
            local $SIG{ALRM} = sub { die; };
            alarm($timeout);
            while (my $line = <$sock>) {
                         .................
            }
            alarm(0);
        };
        
        $timeout = 24*60*60;
}