task_capture_completed.pl


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
26
27
28
29
30
31
32
33
34
35

#!/usr/bin/env perl
 
use strict;
use warnings;
use autodie;
use feature qw(say);

my $project = $ARGV[0];

my $stuff = `task status:completed project:$project all`;

my @x = split(/\n/, $stuff);

# print "$_\n" foreach @x;

my %tasks;
my @taskids;
my $id;

foreach my $line (@x) {
    my @data = split / /, $line;
    if (defined($data[4])) {
            if ($data[4] =~ /\S{8}/) {
                $tasks{$data[4]} = (
                    [`task _get $data[4].description`,
                    `task _get $data[4].end`]
                )
        }
    }
}

while ( (my $key, my $value) = each %tasks ) {
    print "$key => @{ $value }\n";
}