blob: 4e1342782c9708f15ad8e48de31a4570bef4e5b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
use lib "../lib";
use Common;
my $rules_x = [ qw[ 5 10 30 60 75 125 210 300 600 1250 3600 ] ];
my $rules_y = [ 1, (60*60*24), (50), (50) ];
my $tasks = [ time ];
my $y_oper = 1;
for my $y (@$rules_y)
{
$y_oper *= $y;
for my $x (@$rules_x)
{
# print "$x\t$y_oper\t" . int($x * $y_oper) . " " . ( time - int( $x * $y_oper) ). "\n";
push @$tasks, (time - int( $x * $y_oper ));
}
}
run_tasks($tasks);
sub run_tasks
{
my ($tasks) = @_;
for my $task (@$tasks)
{
print $task . "\t-- ";
print test($task) . "\t";
# print expected($task) . "\n";
print control($task) . "\n";
}
}
sub test
{ my ($task) = @_; return Common->get_age($task); }
sub control
{ my ($task) = @_; return Common->show_date($task); }
#sub _load_expected
# { my ($self, $task, $expected) = @_; $self->{'expected'} ||= {}; $self->{'expected'}->{$task} = $expected; }
1;
|
