3

是否有任何工具或报告可以提供给定 crontab 文件可以输出在指定时间范围内运行的作业。

我们的 crontab 文件变得非常大，当我们在服务器上安排停机时间时，我们的系统管理员很难找出哪些作业需要重新运行。我们试图找出我们需要运行哪些作业。

我正计划编写自己的脚本，但想知道那里是否已经有什么东西了

4

3 回答 3

1

对于 Schedule::Cron 的“模拟模式”（以及在不修改 Schedule::Cron 本身的情况下在内部使用睡眠、时间、警报的任何其他模块）有一个很好且干净的解决方案。您可以使用 Time::Mock 进行节流，例如和

perl -MTime::Mock=throttle,600 schedule.pl

一个人可以将你的“时间机器”加速 600 倍（因此，与其睡 10 分钟，不如只睡一秒钟）。有关详细信息，请参阅 Time::Mock 的联机帮助页。

对于直接将 crontab 文件与 Schedule::Cron 一起使用，您应该能够直接从README中获取示例：

 use Schedule::Cron;
 my $cron = new Schedule::Cron(sub { system(shift) },
                               file => "/var/spool/crontab.perl");
 $cron->run();

这里的技巧是使用默认的调度程序方法，该方法使用存储的参数调用system() 。请让我知道，这是否适合您或是否需要修复。当然，您也可以使用print而不是 system 。

于 2009-11-10T08:28:30.877 回答
1

您可以做的一件事是：

  • 获取 Perl 模块Schedule::Cron

  • 仅可选择将其修改为睡眠（创建“快进”模式，并且在快进时它会在其中 sleep($sleep) 更改为不执行任何操作。这还需要更改$now = time;调用为 do $now++。

  • 修改它以能够指示仿真的开始和结束时间。

  • 创建一个 Perl 单行器，它获取的输出crontab -l并将其转换为类似的 contab，但它用cmd1 arg1 arg2perl 子例程替换命令sub { print "Execution: cmd1 arg1 arg2\n"}

  • 以快进模式运行调度程序，如 POD 中所示。

    它将读入您修改后的 crontab，并模拟执行。

于 2009-11-09T22:30:43.277 回答
0

这是与 DVK 类似的方法，但使用 Perl 模块Schedule::Cron::Events。

这是一个非常“警告用户”的帖子 - 一个起点。鉴于此 crontab 文件a_crontab.txt:

59 21 * * 1-5    ls >> $HOME/work/stack_overflow/cron_ls.txt
    # A comment
18 09 * * 1-5    echo "wibble"

下面的脚本 cron.pl，运行如下，给出：

$ perl cron.pl a_crontab.txt "2009/11/09 00:00:00" "2009/11/12 00:00:00"
2009/11/09 09:18:00 "echo "wibble""
2009/11/09 21:59:00 "ls >> $HOME/work/stack_overflow/cron_ls.txt"
2009/11/10 09:18:00 "echo "wibble""
2009/11/10 21:59:00 "ls >> $HOME/work/stack_overflow/cron_ls.txt"
2009/11/11 09:18:00 "echo "wibble""
2009/11/11 21:59:00 "ls >> $HOME/work/stack_overflow/cron_ls.txt"
2009/11/12 09:18:00 "echo "wibble""
2009/11/12 21:59:00 "ls >> $HOME/work/stack_overflow/cron_ls.txt"

原型（！）脚本：

use strict;
use warnings;

use Schedule::Cron::Events;

my $crontab_file = shift || die "! Must provide crontab file name";
my $start_time   = shift || die "! Must provide start time YYYY/MM/DD HH:MM:SS";
my $stop_time    = shift || die "! Must provide stop time YYYY/MM/DD HH:MM:SS";

open my $fh, '<', $crontab_file or die "! Could not open file $crontab_file for reading: $!";
my $table = [];
while ( <$fh> ) { 
    next if /^\s*$/;
    next if /^\s*#/;

    chomp;

    push @$table, new Schedule::Cron::Events( $_, Date => [ smhdmy_from_iso( $start_time ) ] );
}
close $fh;

my $events = [];
for my $cron ( @$table ) {
    my $event_time = $stop_time;
    while ( $event_time le $stop_time ) {
        my ( $sec, $min, $hour, $day, $month, $year ) = $cron->nextEvent;
        $event_time = sprintf q{%4d/%02d/%02d %02d:%02d:%02d}, 1900 + $year, 1 + $month, $day, $hour, $min, $sec;

        push @$events, qq{$event_time "} . $cron->commandLine . q{"};
    }
}

print join( qq{\n}, sort @$events ) . qq{\n};

sub smhdmy_from_iso {
    my $input = shift;

    my ( $y, $m, $d, $H, $M, $S ) = ( $input =~ m=(\d{4})/(\d\d)/(\d\d) (\d\d):(\d\d):(\d\d)= );

     ( $S, $M, $H, $d, --$m, $y - 1900 );
}

希望你能适应你的需要。

于 2009-11-09T22:45:37.060 回答