monitoring/yna-recompute-summary/count.pl

#!/usr/bin/perl -w
use strict;

my $maildir = (shift or '/tmp/votem/wd');
die "argv[1] = /PATH/TO/MAILDIR" unless -d $maildir;

while (<>) {
  my $issuename = $_;
  chomp $issuename;
  my $resultsfile = ".results.$issuename";
  unlink $resultsfile or die "unlink: $!"
    if -e $resultsfile;
  open my $grep, "-|", "grep -Rl 'Subject: $issuename' $maildir/" or die "open: $!";
  while (defined (my $fname = <$grep>)) {
    chomp $fname;
    system("grep 'vote: ' $fname >> $resultsfile") == 0 or die "system($?): $!";
  }
}