#!/afs/athena/contrib/perl5/p -w

use strict;
use FileHandle;

my $vol;

while (<>) {
  /^VLDB / && next;
  /^\s*$/ && next;

  chop;

  /^\S/ && (s/\s+$//, $vol = $_, next);

  /^\s+server (\S+) partition (\S+) (\S+) / &&
    printf "%-25s %5s %20s:%s\n", $vol, $3, $1, $2;
}