1 # rewrite interval years into separate values for indexing
3 # e.g. 1998- will be indexed as 1998 1999 2000 2001 2002 2003
4 # 1993-1995 will be 1993 1994 1995
9 if (/(\d{4})\s*-\s*(\d{4})/) {
10 my ($from,$to) = ($1,$2);
11 for (my $i=$from; $i<=$to; $i++) {
14 } elsif (/(\d{4})-/) {
16 my @t = localtime(time);
19 for (my $i=$from; $i<=$to; $i++) {