Revision f9e8a51e
Von Moritz Bunkus vor fast 6 Jahren hinzugefügt
| modules/fallback/Set/Crontab.pm | ||
|---|---|---|
|
# Copyright 2001 Abhijit Menon-Sen <ams@toroid.org>
|
||
|
|
||
|
package Set::Crontab;
|
||
|
|
||
|
use strict;
|
||
|
use Carp;
|
||
|
use vars qw( $VERSION );
|
||
|
|
||
|
$VERSION = '1.03';
|
||
|
|
||
|
sub _expand
|
||
|
{
|
||
|
my (@list, @and, @not);
|
||
|
my ($self, $spec, $range) = @_;
|
||
|
|
||
|
# 1,2-4,*/3,!13,>9,<15
|
||
|
foreach (split /,/, $spec) {
|
||
|
my @pick;
|
||
|
my $step = $1 if s#/(\d+)$##;
|
||
|
|
||
|
# 0+"01" == 1
|
||
|
if (/^(\d+)$/) { push @pick, 0+$1; }
|
||
|
elsif (/^\*$/) { push @pick, @$range; }
|
||
|
elsif (/^(\d+)-(\d+)$/) { push @pick, 0+$1..0+$2; }
|
||
|
elsif (/^!(\d+)$/) { push @not, "\$_ != 0+$1"; }
|
||
|
elsif (/^([<>])(\d+)$/) { push @and, "\$_ $1 0+$2"; }
|
||
|
|
||
|
if ($step) {
|
||
|
my $i;
|
||
|
@pick = grep { defined $_ if $i++ % $step == 0 } @pick;
|
||
|
}
|
||
|
|
||
|
push @list, @pick;
|
||
|
}
|
||
|
|
||
|
if (@and) {
|
||
|
my $and = join q{ && }, @and;
|
||
|
push @list, grep { defined $_ if eval $and } @$range;
|
||
|
}
|
||
|
|
||
|
if (@not) {
|
||
|
my $not = join q{ && }, @not;
|
||
|
@list = grep { defined $_ if eval $not } (@list ? @list : @$range);
|
||
|
}
|
||
|
|
||
|
@list = sort { $a <=> $b } @list;
|
||
|
return \@list;
|
||
|
}
|
||
|
|
||
|
sub _initialise
|
||
|
{
|
||
|
my ($self, $spec, $range) = @_;
|
||
|
return undef unless ref($self);
|
||
|
|
||
|
croak "Usage: ".__PACKAGE__."->new(\$spec, [\@range])"
|
||
|
unless defined $spec && ref($range) eq "ARRAY";
|
||
|
|
||
|
$self->{LIST} = $self->_expand($spec, $range);
|
||
|
$self->{HASH} = {map {$_ => 1} @{$self->{LIST}}};
|
||
|
|
||
|
return $self;
|
||
|
};
|
||
|
|
||
|
sub new
|
||
|
{
|
||
|
my $class = shift;
|
||
|
my $self = bless {}, ref($class) || $class;
|
||
|
return $self->_initialise(@_);
|
||
|
}
|
||
|
|
||
|
sub contains
|
||
|
{
|
||
|
my ($self, $num) = @_;
|
||
|
|
||
|
croak "Usage: \$set->contains(\$num)" unless ref($self) && defined $num;
|
||
|
return exists $self->{HASH}{$num};
|
||
|
}
|
||
|
|
||
|
sub list
|
||
|
{
|
||
|
my $self = shift;
|
||
|
|
||
|
croak "Usage: \$set->list()" unless ref($self);
|
||
|
return @{$self->{LIST}};
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
__END__
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
Set::Crontab - Expand crontab(5)-style integer lists
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
$s = Set::Crontab->new("1-9/3,>15,>30,!23", [0..30]);
|
||
|
|
||
|
if ($s->contains(3)) { ... }
|
||
|
|
||
|
=head1 DESCRIPTION
|
||
|
|
||
|
Set::Crontab parses crontab-style lists of integers and defines some
|
||
|
utility functions to make it easier to deal with them.
|
||
|
|
||
|
=head2 Syntax
|
||
|
|
||
|
Numbers, ranges, *, and step values all work exactly as described in
|
||
|
L<crontab(5)>. A few extensions to the standard syntax are described
|
||
|
below.
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item < and >
|
||
|
|
||
|
<N selects the elements smaller than N from the entire range, and adds
|
||
|
them to the set. >N does likewise for elements larger than N.
|
||
|
|
||
|
=item !
|
||
|
|
||
|
!N excludes N from the set. It applies to the other specified
|
||
|
range; otherwise it applies to the specified ranges (i.e. "!3" with a
|
||
|
range of "1-10" corresponds to "1-2,4-10", but ">3,!7" in the same range
|
||
|
means "4-6,8-10").
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head2 Functions
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item new($spec, [@range])
|
||
|
|
||
|
Creates a new Set::Crontab object and returns a reference to it.
|
||
|
|
||
|
=item contains($num)
|
||
|
|
||
|
Returns true if C<$num> exists in the set.
|
||
|
|
||
|
=item list()
|
||
|
|
||
|
Returns the expanded list corresponding to the set. Elements are in
|
||
|
ascending order.
|
||
|
|
||
|
=back
|
||
|
|
||
|
The functions described above croak if they are called with incorrect
|
||
|
arguments.
|
||
|
|
||
|
=head1 SEE ALSO
|
||
|
|
||
|
L<crontab(5)>
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
Abhijit Menon-Sen <ams@toroid.org>
|
||
|
|
||
|
Copyright 2001 Abhijit Menon-Sen <ams@toroid.org>
|
||
|
|
||
|
This module is free software; you can redistribute it and/or modify it
|
||
|
under the same terms as Perl itself.
|
||
Auch abrufbar als: Unified diff
Module: Fallback-Version von Set::Crontab entfernt
Ist in Debian/Ubuntu inzwischen paketiert.