#!/usr/bin/perl -w

use locale;
use strict;
use Data::Dumper;
use Lingua::PT::PLNbase;

use DBI;

my $c="tinha";

my $sql="select texto from arvores where texto ilike '%$c%'";
my $rs=DBI->connect("dbi:Pg:dbname=cp","ruivilela");
my $r=$rs->prepare($sql);
$r->execute;
die "Failed: ".$rs->errstr."\n" if (!$r); #Erros ?

my %word;

while (my $w = $r->fetchrow){
    foreach ($w=~/($c [\w]+)/i){
         $word{"$1"}++;
    }
}

$r->finish;
for (sort {$word{$a} <=> $word{$b}} (keys %word)){
    print "\n$_ : ".$word{$_};
}