Foro - Perl en Español

Hola de nuevo, amigo. Tengo este JSON:

{"Data":{"Id":9923202,"Nombre":"PEPEGUME","CI":{"Codigo":"4682329AS","IdCiudadExpedicion":"01"},"IdSexo":"M","Telefono":"43444821","Celular":"234821","Email":"[email protected]","FechaNacimiento":"16/02/1984 0:00:00","IdPaisNacimiento":"CO","IdCiudadNacimiento":"01","IdEstadoCivil":"C","Hijos":0,"KeyEstadoAfiliacion":"P"},"Errors":[],"Messages":[],"HasErrors":false,"HasMessages":false}

y necesito saber cuántos años tiene esa persona, actualmente.

fecha actual: 2017 - 12 - 20 ; 20 de dic de 2017

y la fecha de nacimiento de PEPEGUME es: 16/02/1984 0:00:00

¿Cómo puedo saber cuántos años tiene actualmente, por favor? "Almacenar en una variable los años". Esto para luego manipular este valor.

Pero, ¿años enteros o no?

Por ejemplo, si un usuario tiene 19 años, 11 meses y 29 días, ¿decimos que tiene 19 años?

Sí, años enteros. Si nació en 1984 y la fecha actual es 2017 tendrá 33 años.

Pues entonces es muy sencillo, ¿no?

Solo tienes que sacar la información del json con el módulo JSON, extraer el dato del año, por ejemplo con una expresión regular así:
(Sí, hay un espacio en blanco después del paréntesis de captura).

Y el número del año actual lo sacas con una llamada a la función localtime():

perl -E 'say 1900+(localtime)[5]'

Y una resta entre los dos números, y listo.