File: todo.pl

package info (click to toggle)
vlc 0.2.92-8
  • links: PTS
  • area: main
  • in suites: woody
  • size: 7,076 kB
  • ctags: 7,147
  • sloc: ansic: 62,829; cpp: 5,824; sh: 2,469; xml: 2,351; makefile: 1,291; python: 503; perl: 19
file content (25 lines) | stat: -rwxr-xr-x 318 bytes parent folder | download 
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;