Término :: Informe

Manera fácil de crear 'informes' dinámicos desde los scripts
Descargar ahora

Término :: Informe Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • 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