#!/usr/bin/perl -w
#
# tabber.pl - A simple tab delimited file viewer
# Rob Hudson <rob_at_codesnipers_dot_com>
# URL: http://www.cogit8.org/rob/
#
# Common Usage: tabber.pl filename | less
$|++;

my $file = $ARGV[0] if ($ARGV[0] ne '') || die "Must specify input file\n";
open FILE, $file || die "Can't open file: $file, $!\n";

my $record = 0;
my $count = 0;
my @line = ();

while (<FILE>) {
  print "--(Record: " . $record++ . ")--------------------------------------------\n\n";
  chomp;
  @line = split ('\t', $_);

  $count = 0;
  foreach $field (@line) {
    print "Field " . sprintf("% 2s", $count++) . ": $field\n";
  }
  print "\n";
}

close (FILE);
0;