# cantonnier2.pl
# Une version du programme qui peut accepter des "options"
# Par exemple : perl cantonnier2.pl --avant-hier=12.5 --hier-en-plus=2.75 --aujourdhui-en-plus=1.25 --total=80

# Pour accepter des options :
use Getopt::Long;

# Définie des variables, dont la valeur sera déterminé par des options :
my ( $avant_hier, $hier_en_plus, $aujourdhui_en_plus, $total_a_creuser );
GetOptions(
    'avant-hier=f'         => \$avant_hier,
    'hier-en-plus=f'       => \$hier_en_plus,
    'aujourdhui-en-plus=f' => \$aujourdhui_en_plus,
    'total=f'              => \$total_a_creuser
);

# 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";