#!/usr/bin/perl -s
use strict;
use Text::TabDB;
use utf8::all;
our ($fs,$all,$err,$o,$all1,$all2);
my $f1 = shift;
my $f2 = shift or die("join  [-fs=...] ta1 ta2\n");
$err||="";

Text::TabDB::tabjoin(
   {fs=>$fs,
    all=>$all,
    all1=>$all1,
    all2=>$all2,
    err=>$err,
    ($o?(o=>$o):())}, $f1, $f2);

__END__

=head1 NAME

tabjoin - join of textual relational databases

=head1 SYNOPSIS

 tabjoin [-fs=#] [-all]  tab1 tab2 > tab3

=head1 DESCRIPTION

At list there should be a common field name.

=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 ":")
 -all      also prints all the "non-joined" tuples
 -all1     also prints the "non-joined" tuples from f1
 -all2     also prints the "non-joined" tuples from f2

 -err=##   write a "##" prefix in the "non-joined" tuples

 -o=file   output file

=head1 AUTHOR

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

=head1 SEE ALSO

perl(1).

=cut