#!/usr/bin/perl
use Lingua::PT::PLN;
use locale;
my $filename = shift;
# cria um ficheiro ordenado por ocorrĂȘncias
oco({
output => "$filename.out1",
num => 1
},
$filename);
# cria um ficheiro ordenado por texto
oco({
output => "$filename.out2",
alpha => 1
},
$filename);
# cria um ficheiro ordenado por ocorrĂȘncias
oco({
output => "$filename.out3",
log => 1,
num => 1
},
$filename);
# imprime a lista de palavras ordenadas
my %oc = (oco({}, $filename));
print join("/",(sort keys %oc));