#!/usr/bin/env perl

if ($ARGV[0]) { print <<FIM;

ACDC_IGRAPH_CALCULA_PESOS
Programa que cria explicitamente os tamanhos dos nós no igraph

Chamada: $0 < ficheiro de entrada

                                      DMS, 25 de outubro de 2021

FIM
exit;
}
# 
$max=0;
while (<>) {
    ($emo,$freq)=($_=~/(.*)\t([0-9]+)$/);
    if ($freq > $max) {
	$max=$freq;
    }
    $emo=~s/Pessoa:Personagem://;
#    $emo=~s/\-.*$//;
    $freq{$emo}=$freq;
#    print "Frequência de $emo: $freq\n";
}
#print "Frequência máxima: $max\n";
foreach $e (keys %freq) {
#    print "$e : ", $freq{$e}," ",  30*$freq{$e},  " ", 30*$freq{$e}/$max+1, "\n";
    print  "V(G)[name==\"$e\"]\$size<- ",int(30*$freq{$e}/$max+1), "\n";
}