Geckozone

Code : Tout sélectionner

#!/usr/bin/perl -w
use strict;
my @exam=qw/réussi raté/;
my ($i, $reussi, $commentaire)=(0, "non", "Cet élève ne mérite même pas de commentaire tant il est décevant.");
$i=int(rand(2)); # tout le monde sait que les notes sont mises au hasard.
print "Yessss !\n" if $exam[$i] eq "réussi";
die "Argghhh !\n" if $exam[$i] eq "raté";
print "Commentaire du prof : ";
chomp(my $commentaire=<STDIN>);
my $ref=\$commentaire;
for(my $i=10;$i<=20;$i++) {
	my $note = int(rand(11))+10;
	if ($note==$i) {
		print "Ma note est $i.\n";
		$reussi="oui";
		last;
	}
	elsif(${$ref}=~m/^[a-zA-Z0-9]*\s{1}\w+[0-9]?/) {
		print "Le prof est pas content du tout. $commentaire\n";
		next;
	}
	else {
		open FEUILLE_RESULTATS, "> resultats.txt" or die "Les résultats n'ont pas encore été publiés. $!";
		print FEUILLE_RESULTATS "Je n'ai pas eu $i.\n";
	}
	print "Rien n'est encore perdu ;-)\n";
}
print "Raté. Circonstances aggravante : pas de chance. Élève envoyé de l'école\n" if $reussi ne "oui";
exit(0);