todo.pl 318 Bytes
Newer Older
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
#! /usr/bin/perl

$buffer = "";
$description = "";

open FILE, "TODO";

while (<FILE>) {
	$buffer .= $_;
	if (/^Status:/) {
		if(/Todo/) {
			print $buffer;
		} else {
			print "\n".$description;
			print $_;
		}
		$buffer = "";
		$description = "";
	} elsif (/^Description/) {
		$description = $_;
	}
}

close FILE;