#!/usr/bin/perl

# This scripts shows use of Lingua::BiTerm with aligned files

#use: perl aligned.pl file1 file2 [outfile]

use Lingua::BiTerm;
use Data::Dumper;
$file1=shift;
$file2=shift || die ("you must input 2 filenames");
$file3 = shift || "a.tmp";
$a= newKvec Lingua::BiTerm({aligned=>1},$file1,$file2);
$a->calcStat("right fisher");
$a->rank();
$a->printToFile($file3);