Perl/Algorithm::CheckDigits

Módulo	Algorithm::CheckDigits
Versión	1.1.1
Uso	Propósito general
Propósito	Juego de algoritmos para validar y completar códigos empleados en el mundo real.

Enlaces y referencias

• Sobre algoritmos y formatos:
  • Ref: WikiLibro: Algoritmo para obtener la letra del NIF
  • Ref: Q11 : ¿Es posible conocer los algoritmos utilizados por los Estados miembros en la elaboración de sus números de identificación del IVA?
• Utilidades en la red:
  • Validación del n° IVA en VIES

Uso

El módulo prácticamente no tiene dependencias externas por lo que es muy sencillo de empaquetar. Para emplearlo basta con cargarlo y crear un objeto mediante el método de clase CheckDigits( $algoritmo ). Desde él se dispone de varios métodos:

is_valid( $numero )

Verifica si el código recibido es válido para el algoritmo dado

complete( $numero )

Intenta completar el código calculando según el algoritmo.

checkdigit( $numero )

Extrae el dígito o dígitos de control del número.

basenumber( $numero )

Extrae la cifra base que se utiliza para calcular la cifra de control

Algoritmos específicos

DNI

• Ref: M23_001

use Algorithm::CheckDigits;

my $dni = CheckDigits('dni_es');

if ($dni->is_valid('54362315K')) {
     # do something
}

CCC

• Ref: M11_006

use Algorithm::CheckDigits;

my $ccc = CheckDigits('ccc_es');

if ($ccc->is_valid('2420-0730-27-0050103552')) {
      # do something
}