Início / unix / Perguntas / 421120
Accepted
Santhosh S T
Asked: 2018-02-01 18:50:26 +0800 CST

Rotação de log usando perl Logfile::Rotate

  • 772

O script abaixo funciona quando executado no CentOS, mas não gira os logs com base no tamanho. Um novo log é gerado toda vez que executo este script. Alguém pode me dizer como fazer esse script funcionar com base no tamanho?

#!/usr/bin/perl
use Logfile::Rotate;
my $logfile = new Logfile::Rotate(
  File => '/var/log/remotehost/fakepath/Syslog.log',
  Count => 100,
  Gzip => '/usr/bin/gzip',
  size => 1*1024*1024,
  sub {
    open my $PID, '<', '/usr/lib/systemd/system/rsyslog.service' or
    die "Unable to open pid file:$!\n";
    chomp(my $pid = <$PID>);
    close $PID;
    kill 'HUP', $pid;
  }
);
# Log file locked (really) and loaded. Now let's rotate it.
$logfile->rotate();
# make sure the log file is unlocked (destroying object unlocks file)
undef $logfile;
perl logrotate

1 respostas

  1. Best Answer

    De fato, Logfile::Rotatenão gira com base no tamanho, o que não deveria ser surpreendente, já que em nenhum lugar sua documentação diz isso. Talvez a maneira mais simples de girar com base no tamanho seja agrupar a chamada rotatedentro de um if, por exemplo:

    if (-s '/var/log/remotehost/fakepath/Syslog.log' > 1048576) {
    $log->rotate();
}

    Isso deve girar os logs somente quando o arquivo nomeado for maior que 1 MB (o tamanho é fornecido em bytes).

    • 5

relate perguntas