Término :: PANTALLA :: Hizo Un asistente en su terminal ...
Descargar ahora

Término :: PANTALLA :: Hizo Clasificación y resumen

Término :: PANTALLA :: Hizo Etiquetas

Módulo perl perla Terminal mago asistente de terminal

Término :: PANTALLA :: Hizo Descripción

Un asistente en tu terminal ... Término :: PANTALLA :: Wizard es un asistente en su terminal ... SIN SINOPSIS Use el término :: Pantalla :: Asistente; $ scr = nuevo término :: Pantalla :: Asistente; $ scr-> clrscr (); $ scr-> add_screen (nombre => "PROCIOS", encabezado => "Dame el nuevo ID de proceso", Cancelar => "ESC - Annuleren", Siguiente => "Ctrl-Enter - Volgen", Anterior => "F3 - Vorige ", Fink =>" CTRL-ENTER - KLAAR ", Solicits => *"}, {KEY => "TIPO", PROMPT => "Proceso interno o externo (I / E)", convertir => "UP", LEN => 1, OnlyValid => " *"}, {KEY => "Omschrijving", PROMPT => "Descripción de Proces", LEN => 75}, {KEY => "Contraseña", PROMPT => "ENTRAR A Contraseña ", len => 14, contraseña => 1}], # # OK Este Helptoxto está en Holandés, pero está claro cómo funciona, ¿no es así? # HelptEx =>" "". En Dit Scherm Kan Een Nieuw PROMESE ID WORDEN OPGEVOERD "". "." PROCESID - ES HET INGEBOERDE PROCESED ID "." PERSONAL / EXTERN - ¿Es HET PROCESS BELASTINGDISST PUERD DENIT? "." Omschrijving - Een Korte Omschrijving Van Het Proces. "); $ scr-> add_screen (nombre =>" x.400 ", encabezado =>" Voer het x.400 adres in ", ##, por lo que el punto es que puede cambiar el asistente 'botones'. # Cancelar = > "ESC - annuleren", SIGUIENTE => "CTRL-ENTER - VOLGENE", Anterior => "F3 - Vorige", Finalizar => "CTRL-ENTER - KLAAR", Solicits => *"}, {KEY => "AMDM", PROMPT => "AMDM", LEN => 16 , Convertir => "UP", OnlyValid => " *"}, {KEY => "PRDM", PROMPT => "PRDM", LEN => 16, CONVERT => "UP", OnlyValid => " *"}, {Tecla => "org", solicitud => "organización", len => 16, convertir => "UP", onlyvalid => " *"}, {KEY => "OU1", PROMPT => "UNIT1", LEN => 16, CONVERT => "UP", ONLYVALIDAL => " *"}, {KEY => "OU2", PROMPT => "Unit2 ", Len => 16, convertir =>" UP ", onlyValid =>" "}, {KEY =>" OU3 ", Solicite =>" Unit3 ", len => 16, convertir =>" arriba ", onlyvalid =>" * "},], helpText =>" "." En DIT Scherm Kan Een Standaard X.400 Adres Worden Ingevoerd Voor Een Procesid ",); $ scr-> add_screen (nombre =>" getallen ", encabezado =>" voer getallen in ", cancel =>" esc - Annuleren ", SIGUIENTE =>" CTRL-ENTER - VOLGEDE ", Anterior =>" F3 - Vorige ", Finalizar =>" CTRL-ENTER - KLAAR ", Solicits => *"}, {KEY => "Ajouble", Solicite => "doble", len => 16, convertir => "UP", onlyvalid => " + ( *)?"},],); $ Scr-> Wizard (); $ Scr-> Wizard ( "Procese", "Getallen"); $ Scr-> CLRSCR ();% valores = $ scr-> get_keys (); @ array = ("PRODUCT", "X.400", "Getallen"); por $ i (@array) {imprimir " $ i "; para $ KEY (teclas% {$ valores {$ i}}) {My $ val = $ valores {$ i} {$ key}; imprimir" $ clave = $ val ";}}% valores = $ scr-> get_keys (" x.400 "," procesa "); salida; este es un módulo para tener un asistente en un terminal. Herea de término :: PANTALLA :: Readline. los El módulo proporciona algunas funciones para agregar pantallas. El resultado es un hash con las teclas que tienen los valores (validados) que los utilizados ingresaron en las diferentes pantallas. Requisitos: · Perl

Término :: PANTALLA :: Hizo Software relacionado