# Lire des Noms-Notes en format 1 

use strict;
use warnings;
use XML::DOM;

# on prépare les impressions sur la sortie standard
binmode(STDOUT, ":utf8");

sub lire_1 ($) { #Document -> flottant
	my ($doc) = @_;
	my $liste = $doc->getDocumentElement();
	my $k = 0; #nombre de notes
	my $s = 0; #le total des notes
	
	my @les_eleves = $liste->getElementsByTagName("eleve");
	foreach my $l_eleve ( @les_eleves  ){ 
	#lecture
		my $le_nom = $l_eleve->getAttribute("nom");
		my $la_note = $l_eleve->getAttribute("note");
	#action
	    print("$le_nom a pour note $la_note\n");
	    $s += $la_note;
		$k++;
	}# foreach
	
	if( $k == 0 ){
		die("fichier vide");
	}else{
		return $s/$k;
	}
}# lire_1

sub lecture ($){# nom de fichier
	my ($fichIn) = @_;
	my $parseur = XML::DOM::Parser->new();
	my $doc = $parseur->parsefile($fichIn);
	my $moy = lire_1($doc);
	print("\nMoyenne : $moy\n");
}#lecture

lecture($ARGV[0]);