diff options
| -rw-r--r-- | task_capture_completed.pl | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/task_capture_completed.pl b/task_capture_completed.pl index f178dca..a478ba1 100644 --- a/task_capture_completed.pl +++ b/task_capture_completed.pl @@ -7,24 +7,22 @@ use feature qw(say); my $project = $ARGV[0]; -my $stuff = `task status:completed project:$project all`; - -my @x = split(/\n/, $stuff); +my @tw_output = qx/task status:completed project:$project all/; # print "$_\n" foreach @x; my %tasks; -my @taskids; my $id; -foreach my $line (@x) { + +foreach my $line (@tw_output) { 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`] - ) + if ($data[4] =~ /\S{8}/) { + $tasks{$data[4]} = ( + [`task _get $data[4].description`, + `task _get $data[4].end`] + ) } } } |