#!/usr/bin/perl -w

use strict;

use NAT;
use NAT::Dict;
use Data::Dumper;

my $dict_name = shift;
unless ($dict_name =~ m!\.db!) {
  die 'de momento so funciono com ficheiros dbs';
}

my $dict = NAT::Dict::open(dbfile => $dict_name);

my $minimum_oco = 20;
my $minimum_cor = .60;

for my $w ($dict->words()) {
  next unless ($dict->occurrence($w) || 0) > $minimum_oco;
  my $trans = $dict->translations($w);

  my $bestkey = (sort {$trans->{$b} <=> $trans->{$a}} keys %{$trans})[0];
  next unless $trans->{$bestkey} > $minimum_cor;

  next if length($w)<2 || length($bestkey)<2;

  print "$w $bestkey\n";
}

__END__