主页 / unix / 问题 / 421120
Accepted
Santhosh S T
Asked: 2018-02-01 18:50:26 +0800 CST

使用 perl Logfile::Rotate 进行日志轮换

  • 772

以下脚本在 CentOS 上执行时有效，但它不会根据大小轮换日志。每次执行此脚本时都会生成一个新日志。谁能告诉我如何根据大小使这个脚本工作？

#!/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 个回答

  1. Best Answer

    事实上，Logfile::Rotate它不会根据大小旋转，这应该不足为奇，因为它的文档中没有任何地方说它会这样做。也许基于大小旋转的最简单方法是将调用包装rotate在 if 中，例如：

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

    只有当命名文件大于 1MB（大小以字节为单位）时，这才应该轮换日志。

    • 5

相关问题