#!/usr/bin/perl

use strict;
use warnings;

use lib './lib/perl';
use TFile;

sub Main ();
sub Munge ();

$config::pnfmt = '%02d';
Main;

sub Main () {
  @::ARGV = ('a.t') unless @::ARGV;
  my $dn = 1;
  for my $fname (@::ARGV) {
    my $tf = new TFile $fname;
    my (@ps) = (undef);
    while (my $p = $tf->ReadLine()) {
      push(@ps, $p);
      }
    $tf->Close();
    for my $i (1..$#ps) {
      my $p = $ps[$i];
      printf "$dn-$config::pnfmt\t%d\tyes\t%s\t\n", 
        $i, $p->{'rating'}, $p->{'name'};
      }
    $dn++;
    }
  }

