view release on metacpan or  search on metacpan

bin/message_score.pl  view on Meta::CPAN

    next unless /^From:\s+(.*)$/i;
    $from=$1;
    last;
  }
  my $score=Message::Style::score($article);
  $scores{$from}||=[];
  push @{ $scores{$from} }, $score;
}

sub scorethese {
  local(@ARGV)=@_;
  my @article;
  while(<>) {
    chomp;
    if(/^From /) {
      scorethis(\@article);
      undef @article;
    } else {
      push @article, $_;
    }
  }