#!/usr/bin/perl
# Accumulate and format the foobar table data

use warnings;
use strict;
use 5.6;

my $tot = 0;

while (<> ) {
   s/^\s+//s;
   next if /^#/;
   s/\s+\z//s;
   while (/\s\\\z/ and defined(my $cont = <> )) {
      $cont =~ s/^\s+//s;
      next if $cont =~ /^#/;
      $cont =~ s/\s+\z//s;
      s/\s*\\\z/\n                      $cont/s;
   }
   s/\s*\\?\z//s;
   next if /^\s*\z/s;

   if (/^(\S+)\s+([-+]?\d+)\s+(.*)\z/s) {
      $tot += $2;
      printf "\%-10s \%10d \%s\n", $1, $tot, $3;
   } else {
      print STDERR "Unknown line ",$ARGV,"(",$.,"): '",$_,"'\n";
   }
}

mike.strobel wrote:

I avoid [...] Java like the plague

Blasphemy !

patbob wrote:

balanced by being sublimely elegant in some other way.

Owen37 wrote:

Rots your brain right away