| Término :: Informe Manera fácil de crear 'informes' dinámicos desde los scripts |
Descargar ahora |
Término :: Informe Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Shay Harding
- Sitio web del editor:
- http://search.cpan.org/~shayh/
Término :: Informe Etiquetas
Término :: Informe Descripción
Manera fácil de crear 'informes' dinámicos desde los scripts Término :: El informe es un módulo PERL que se puede usar para generar una salida dinámica bien formateada. También puede usar el término :: SattateBar para mostrar el progreso y el número :: Formato Para que los números se muestren más legibles. Toda la salida se envía a STDOUT de forma predeterminada. La versión actual puede no ser compatible con el código anterior. Se hicieron muchos cambios con respecto a cómo se podría formatear la salida. Término de uso de Ssynopsis :: Informe; Usar tiempo :: contrata QW (USLEEP); mis $ artículos = 100; MY $ INFORM = TERM TERM :: Informe-> Nuevo (StarTrow => 4, NumFormat => 1, StatusBar => ,); My $ status = $ informe -> {statuBar}; $ Estado-> SetItems ($ artículos); $ estado-> inicio; $ Informe-> SavePoint ('Total', "Widgets Total:", 1); $ Informe-> SavePoint ('descartado', "\ n Widgets desechado:", 1); para (1 .. $ artículos) {$ INFORME-> FLYPRINT ('TOTAL', 0, $ _); Si (! ($ _% int ((rand (10) + rand (10) +1)))) {$ INFORME-> FLYPRINT ('descartado', 0, ++ $ descartar); $ status-> Subtexto ("Descartar mal, widget"); } else {$ status-> subtexto ("Ubicación de los widgets"); } usleep (75000); $ estado-> actualización; } $ status-> restablecer ({marcha => 1, subtexto => 'Fondos de procesamiento', SetItems => ($ artículos- $ descartar), inicio => 1}); $ Informe-> SavePoint ('Inventario', "\ n \ n \ Ninventorying widgets ...", 1); Para (1 .. ($ artículos- $ descartar)) {$ INFORME-> FLYPRINT ('Inventario', 0, $ _); $ estado-> actualización; } $ INFORME-> PrintBarreport ("\ n \ n \ n \ n \ n Resumen de widgets: \ n \ n", {"TOTAL:" => $ artículos, "buenos widgets:" => $ artículos- $ descartar, " Malos widgets: "=> $ descartar,}); Requisitos: · Perl
Término :: Informe Software relacionado