chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
tiocnotty: sort imports
[bin.git]
/
print-calendar
1
#! /usr/bin/perl -w
2
use strict;
3
use Time::ParseDate;
4
5
my $days = shift;
6
my $unixend = parsedate("now + $days days");
7
die "Usage: $0 days calendar-file" if not defined($unixend);
8
9
while (<>)
10
{
11
chomp;
12
(my $when) = split /[^0-9\/-]/;
13
my $unixwhen = parsedate($when, UK => 1);
14
last if $unixwhen > $unixend;
15
print "$_\n";
16
}