# dialogue avec l'utilisateur
print "\nBienvenue sur le filtreur-nettoyeur de fils RSS \"Le Monde\" !\n\n";
print "Entrez l'identifiant de la rubrique a traiter : \n";
print "0 : A la une\t\t\t\t9 : Opinions\n
1 : International\t\t\t10 : Planete\n
2 : Europe\t\t\t\t11 : Voyages\n
3 : Livres\t\t\t\t12 : Culture\n
4 : Cinema\t\t\t\t13 : Societe\n
5 : Technologies\t\t\t14 : Economie\n
6 : Medias\t\t\t\t15 : Examens\n
7 : Rendez-vous\t\t\t\t16 : Politique\n
8 : Sports\n";
# Récupération de l'identifiant de la rubrique tapé par l'utilisateur
$id = <STDIN>;
# Suppression du dernier caractère de retour à la ligne s'il y en a un
chomp($id);
# Choix de la rubrique
my @liste= ("3208","3210","3260","3476","651865","3236","3238",
"3242","3232","3244","3546","3246","3224","3234","3404","823353");
if ($id eq 0) {$num="3208";$nomrub="aLaUne"}
elsif ($id eq 1) {$num="3210";$nomrub="international"}
elsif ($id eq 2) {$num="3214";$nomrub="europe"}
elsif ($id eq 3) {$num="3260";$nomrub="livres"}
elsif ($id eq 4) {$num="3476";$nomrub="cinema"}
elsif ($id eq 5) {$num="651865";$nomrub="technologies"}
elsif ($id eq 6) {$num="3236";$nomrub="medias"}
elsif ($id eq 7) {$num="3238";$nomrub="rendezVous"}
elsif ($id eq 8) {$num="3242";$nomrub="sports"}
elsif ($id eq 9) {$num="3232";$nomrub="opinions"}
elsif ($id eq 10) {$num="3244";$nomrub="planete"}
elsif ($id eq 11) {$num="3546";$nomrub="voyages"}
elsif ($id eq 12) {$num="3246";$nomrub="culture"}
elsif ($id eq 13) {$num="3224";$nomrub="societe"}
elsif ($id eq 14) {$num="3234";$nomrub="economie"}
elsif ($id eq 15) {$num="3404";$nomrub="examens_$rep"}
elsif ($id eq 16) {$num="823353";$nomrub="politique"}
else { print "Hum... Je n'ai pas compris : je traiterai donc la
rubrique 'A la Une'\n";$num="3208";$nomrub="aLaUne"}