• [^] # Re: Comme toujours les réponses sont dans Futurama

    Posté par . En réponse au journal Sexe et numéro de sécurité sociale en France. Évalué à 4.

    Et quand tu dois le valider tu doit faire un (nir / 1013 == 0) and (nir / 1012 != 0) ce qui n'a pas beaucoup de sens (l'afficher ne pose pas de problème). Ensuite tu veut connaître le sexe nir / 1012 . Trouver l'année de naissance (nir / 1010 ) % 102. Bien sûr c'est encapsulable dans une méthode (nir / 10x ) % 10y avec x l'indice du chiffre le plus à droite et y la taille du chiffre que tu veut. Mais je trouve personnellement que faire ça c'est plus pratique :

    #!/usr/bin/perl
use strict;
use warnings;
use 5.010;
my $nir = 1234567891234;
my ($sex, $year) = ($nir =~ /^([0-3])([0-9]{2})[0-9]{10}$/) or die 'Bad NIR ! '.$nir;
say $sex;
say $year;

    Le code ne valide pas tout le numero mais valide la taille, la valeur des deux premiers champs tout en les récupérant. C'est quand même du masochisme de s'interdire ce genre d'outils. Je suis d'accord qu'utiliser perl n'est pas anodin autant pour sa gestion des expressions rationnelles que pour son système de type, mais c'est plus agréable dans tout les langages je trouve.

    Tous les contenus que j'écris ici sont sous licence CC0 (j'abandonne autant que possible mes droits d'auteur sur mes écrits)