mirror of
https://code.videolan.org/videolan/vlc
synced 2024-09-04 09:11:33 +02:00
26 lines
318 B
Perl
26 lines
318 B
Perl
|
#! /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;
|
||
|
|
|