#!/usr/bin/perl -s

while ($s = shift) {$p.="\"$s\" "}
$p || ($p = "*.dat");
$ficheiros = `ls $p | wc -l` + 0;
$topicos = `grep % $p | wc -l` + $ficheiros;
$respostas = `cat $p | wc -l` - 2 * $topicos + $ficheiros;
$tp = $topicos / $ficheiros;
$rt = $respostas / $topicos;

print "Estatisticas:
Ficheiros - $ficheiros
Tópicos   - $topicos ($tp por ficheiro)
Respostas - $respostas ($rt por tópico)
"