Finalmente, como se muestra en el Diagrama de Documentos
(diagrama 4) se genera el código fuente del programa.
use aplicacionweb::comunes;
sub inicio {
...
# Operaciones de inicialización
}
sub ejemplo {
&inicio();
print "<html>","\n";
print "<head>","\n";
print " <title>Confirmación del pedido</title>","\n";
print "</head>","\n";
print "<body>","\n";
print " <a href="inicio.html">Ir al inicio</a> | ","\n";
print " <a href ="final.html">Ir al Final</a>","\n";
print " <h1>Productos Seleccionados</h1>","\n";
print " ",&detalle( "Descripción Producto","Cantidad","Importe"),"\n";
print " <p>Felicidades por la selección...</p>","\n";
print " </body>","\n";
print "</html>","\n";
return 1;
}
Ejemplo simplificado del código fuente generado. El sistema de control llamará a la función ejemplo y ésta enviará a la salida la página pedida.-El código de ejemplo sigue un diseño estructurado, pero evidentemente lo mismo se puede hacer con orientación a objetos.-
Como se observa del documento XSP ha transformado la etiqueta que contenía el formato de la página Web en instrucciones print, además de insertar en medio las llamadas a la función detalle que muestra el detalle del pedido.
La ventaja de este sistema es que el programador no tiene que programar los "prints" para presentar el documento, ni definir la función ejemplo. Es el código XSL que transforma el XSP en código fuente Perl el encargado de colocarlos.