$file=$ARGV[0];
open LIBRO, "<$file" || die $!;
$file =~ /(.*)\.(.*)/;
$ar = $1;
@contenido = <LIBRO>;

foreach (@contenido)
{
	chop;
}

$contenido = "@contenido";

$contenido =~ tr/[\.;\,:\"\'\(\)\?\!\-_\*0123456789]/ /;
$contenido =~ tr/[a-z]/[A-Z]/;

@palabras = split /\s/, $contenido;

foreach $palabra (@palabras)
{
	if ($palabra ne "")
	{
		$PF{$palabra}++;
	}
}

@palabrasOK = keys %PF;
$npalabras = @palabrasOK;
 while (($k, $v)= each %PF)
{
	$freq = $v / $npalabras;
	$freq =~ tr/\./\,/;
	$transfor .= "$k;$v;$freq\n";
}
close LIBRO;
open LIBROOUT, ">$ar.csv";

print LIBROOUT $transfor;