# cantonnier.pl
# Ce petite programme montre comment de résoudre le problème par la programmation

# Déclare tous les informations lues dans le texte comme variables:
my $avant_hier         = 12.50;
my $hier_en_plus       = 2.75;
my $aujourdhui_en_plus = 1.25;
my $total_a_creuser    = 80;

# Calcule les mètres creusés hier (et écrie le résultat):
my $hier = $avant_hier + $hier_en_plus;
print "Hier le cantonnier a creusé $hier mètres.\n";

# Calcule les mètres creusés aujourd'hui:
my $aujourdhui = $hier + $aujourdhui_en_plus;
print "Aujourd'hui le cantonnier a creusé $aujourdhui mètres.\n";

# Calcule les mètres creusés jusqu'à maintenant:
my $a_present = $avant_hier + $hier + $aujourdhui;
print "Jusqu'à présent le cantonnier a creusé $a_present mètres.\n";

# Calcule les mètres qu'il reste encore à creuser:
my $encore_a_creuser = $total_a_creuser - $a_present;
print "Il reste encore $encore_a_creuser mètres à creuser.\n";