#!/usr/bin/perl -s
use strict;
use Text::TabDB;
use utf8::all;
our ($fs,$o);
my $ks = shift or die("$0  [-fs=...] key tab*\n");

Text::TabDB::tabkeys({fs=>$fs,($o?(o=>$o):())},$ks);

__END__

=head1 NAME

tabkeys - check keys in (textual) table

=head1 SYNOPSIS

tabkeys [-fs=::]  "field1::field2" tab*

=head1 DESCRIPTION


If no tab is provided, stdin in used.

=head1 FORMATS

each table: 

  country:capital       first line - name of the fields
  Portugal:Lisboa       tuple 1
  France:Paris          tuple 2
  Spain:Madrid          tuple n

=head1  Options

 -fs='!'   changes the field separator (default calculated 
              from schema (first line) or ":")

  -o=file   output file


=head1 AUTHOR

J.Joao Almeida, jj@di.uminho.pt

=head1 SEE ALSO

perl(1).

=cut