days_remaining.pl

#!/usr/bin/perl -w

use strict;
use Date::Calc qw/Today Delta_Days/;

my @today = Today();

my @events = ();
while ( <DATA> ) {
	next if /^#/;
	chomp;
	next unless /\s*(\d\d\d\d)-(\d\d)-(\d\d)\s+(.*)\s*/;
	my $y = $1;
	my $m = $2;
	my $d = $3;
	my $title = $4;
	my $event = { 
		date => "$y-$m-$d", 
		title => $title,
		days => Delta_Days( @today, ( $y, $m, $d ) )
	};
	push( @events, $event );
}

print "Days remaining\n---\n";
for my $event ( sort { $a->{days} <=> $b->{days} } @events ) {
	print $event->{days}, " ", $event->{date}, " ", $event->{title}, "\n";
}

__DATA__
# YYYY-MM-DD DESCRIPTION
2018-12-30 End of year
2019-11-11 Andrew's Birthday