Para contar las etiquetas obtenidas por el analizador léxico[10], generamos el script en perl denominado: "contador_tags.pl", almacenado en el directorio codigo.
Este script acepta como parámetro la ruta hacia los documentos escritos en DocBook XML que queremos analizar. Si no se le pasa ningún parámetro, obtiene los documentos de ../documentos/docbook_xml/.
Este script realiza los siguientes pasos:
Se obtiene la lista de documentos para su posterior análisis (dependiendo del parámetro pasado, se obtendrán de un lugar u otro).
Se analiza cada uno de los documentos buscando posibles errores en el código XML[11]. Si se encuentran errores en un documento, se notifica al usuario, y dicho documento no será tratado por el analizador léxico.
Una vez comprobada la correcta formación de los documentos, se buscan las etiquetas de aquellos documentos correctamente formados[12]. Las etiquetas se obtienen invocando al analizador léxico descrito en el Apéndice A. Analizador de etiquetas.
Llegados a este punto, el script cuenta las etiquetas y muestra el resultado por pantalla[13].