# D'un texte en 2 colonnes à un hash

use strict;
use warnings;

sub consTab ($) { # nom de fichier -> hash
	my ($fich) = @_;
	open(ENTREE, "<$fich");
	
	my %tab;
	my @tablignes = <ENTREE>;
	foreach my $ligne ( @tablignes  ){
		chomp($ligne); # supprime le "\n" final
		my ($le_nom, $la_note) = split( /[ \t]+/ , $ligne);
		$tab{$le_nom} = $la_note;
	}	
	return %tab;
}# consTab

sub TxtVersTab($){
	my ($fichIn) = @_;
	my %tt = consTab($fichIn);
	print(%tt);
}#TxtVersTab

TxtVersTab($ARGV[0]);