|
@@ -21,7 +21,7 @@ use Switch;
|
|
|
use feature 'say';
|
|
use feature 'say';
|
|
|
use List::Util qw (shuffle);
|
|
use List::Util qw (shuffle);
|
|
|
|
|
|
|
|
-my $debug = 1;
|
|
|
|
|
|
|
+my $debug = 0;
|
|
|
my $pad_dir = `pwd`; chomp $pad_dir ; $pad_dir .= "/";
|
|
my $pad_dir = `pwd`; chomp $pad_dir ; $pad_dir .= "/";
|
|
|
|
|
|
|
|
my @membres = ("Apinnet",
|
|
my @membres = ("Apinnet",
|
|
@@ -79,7 +79,6 @@ switch ($nummois) {
|
|
|
case "11" { $mois = "Novembre"}
|
|
case "11" { $mois = "Novembre"}
|
|
|
case "12" { $mois = "Décembre"}
|
|
case "12" { $mois = "Décembre"}
|
|
|
}
|
|
}
|
|
|
-$line = undef;
|
|
|
|
|
say "Quel est le lien de la réunion précédente ?";
|
|
say "Quel est le lien de la réunion précédente ?";
|
|
|
my $padprecedent= <> ; chomp $padprecedent;
|
|
my $padprecedent= <> ; chomp $padprecedent;
|
|
|
say $padprecedent if ($debug);
|
|
say $padprecedent if ($debug);
|
