#!/usr/bin/perl

###################################################################################
#	Lit le fichier segmenté en lignes (passé en argument) et fait
# 	des calcules divers sur les phrases 
###################################################################################

open(FIC, $ARGV[0]);
open(SORTIE,">Rapport_CalcCars_$ARGV[0]");

$i = 0 ; 	#calcule tous les caracteres
$j = 0 ; 	#calcule tous les caracteres alpha numeriques
$k = 0 ; 	#calcule tous les caracteres alpha numeriques

while(!eof(FIC)) 
{
	$car[$i] = getc(FIC);	#création du tableau pour les caracteres
	
	if($car[$i]=~ /[a-zA-Z0-0]/)	#si le caractere lu est alphanumerique
	{
		$j++;
	}
	
	if($car[$i] eq "\n")	#si le caractere lu est fin de ligne
	{
		$k++;
	}
		
	$i++;	#tous les caracteres
}	
close(FIC);

print SORTIE "Fichier : $ARGV[0]\n\n";
print SORTIE "Nombre de caractères total : $i \n";
print SORTIE "Nombre de caractères alphanumeriques : $j \n";
print SORTIE "Nombre de lignes : $k \n";

close(FIC);
close(Sortie);