# cantonnier3.pl
# Une version interactive du programme

# Définie une des variables en la demandant :
print "Combien de mètres le cantonnier a-t-il creusé avant-hier ? ";
my $avant_hier = <>;

# Fais pareille pour les autres variables :
print "Hier, combien de mètres a-t-il creusé de plus qu'avant-hier ? ";
my $hier_en_plus = <>;
print
    "Et aujourd'hui, combien de mètres a-t-il creusé de plus qu'hier ? ";
my $aujourdhui_en_plus = <>;
print "Combien de mètres y a-t-il à creuser en total ? ";
my $total_a_creuser = <>;

# Calcule les mètres creusés hier :
my $hier = $avant_hier + $hier_en_plus;
print "\nDonc, 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 il 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 il 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 lui reste encore $encore_a_creuser mètres à creuser.\n";