Term :: Screen :: Wizard um assistente no seu terminal ...
Baixe Agora

Term :: Screen :: Wizard Classificação e resumo

Term :: Screen :: Wizard Tag

Módulo Perl. perl terminal mago assistente de terminal

Term :: Screen :: Wizard Descrição

Um mago no seu terminal ... Term :: Screen :: Wizard é um assistente no seu terminal ... Sinopse USE TERM :: Screen :: Wizard; $ SCR = NOVO TERM :: Screen :: Wizard; $ scr-> clrscr (); $ scr-> add_screen (nome => "proces", cabeçalho => "Dê-me o novo ID do processo", cancel => "ESC - Annuleren", próximo => "Ctrl-enter - Volgende", anterior => "F3 - vorige ", acabamento =>" ctrl-enter - klaar ", prompts => *"}, {key => "digite", prompt => "interno ou processo externo (I / E)", convert => "up", len => 1, somenteValid => " *"}, {key => "omschrijving", prompt => "Descrição dos proces", len => 75}, {key => "senha", prompt => "Digite um Senha ", Len => 14, Password => 1}], # # OK Este helptext está em holandês, mas é claro como funciona não é? # HeltText =>" "". "Em Dit Scham Kan Een Nieuw Proces Id Worden OpgaVoerd "." "." Procesid - é Het Ingevoerde proces ID "." Estagiário / extern - é Het Proces BelastingDienst Intern of Niet? "." Omschrijving - een Korte omschrijving van het proces. "); $ scr-> Add_Screen (nome =>" x.400 ", cabeçalho =>" Voer Het X.400 Adres In ", ## para que você possa alterar os" botões "do assistente. # Cancelar = > "ESC - Annuleren", next => "Ctrl-Enter - Volgende", anterior => "f3 - vorige", acabamento => "ctrl-enter - klaar", prompts => "Country", Prompt => "Country", Len => 2, Convert => "Up", OnlyValid => " *"}, {key => "amdm", prompt => "amdm", len => 16 , Converter => "up", onlyValid => " *"}, {key => "prdm", prompt => "prdm", len => 16, converter => "up", somenteValid => " *"}, {Key => "org", prompt => "organização", len => 16, converter => "up", onlyValid => " *"}, {tecla => "Ou1", prompt => "unit1", len => 16, converter => "up", onlyvalid => " *"}, {key => "ou2", prompt => "unidade2 ", Len => 16, converter =>" up ", onlyValid =>" * "}, {key =>" ou3 ", prompt =>" unidade3 ", len => 16, converter =>" up ", onlyValid =>" * "},], heltext =>" "." Em Dit Schaverm Kan Een Standaard X.400 Adres Ingevoerd Voor Een Procesid ",); $ scr-> Add_Screen (nome =>" getallen ", cabeçalho =>" Voer Getallen ", Cancelar =>" ESC - Annuleren ", next =>" Ctrl-Enter - Volgende ", anterior =>" f3 - vorige ", acabamento =>" ctrl-enter - klaar ", prompts => *"}, {key => "adobe", prompt => "duplo", len => 16, converter => "up", somenteValid => " + ( *)?"},],],],); $ SCR-> assistente (); $ SCR-> assistente (); "Proces", "getallen"); $ scr-> clrscr ();% valores = $ scr-> get_keys (); @ array = ("proces", "x.400", "getallen"); por $ i (@Array) {Print " $ I. "; por US $ tecla (teclas% {$ valores {$ i}}) {my $ Val = $ valores {$ i} {$ key}; imprimir" $ tecla = $ Val ";}} Valores% = $ scr-> get_keys (" x.400 "," proces "); saia; este é um módulo para ter um assistente em um terminal. Ele herda do termo :: Readline. o O módulo fornece algumas funções para adicionar telas. O resultado é um hash com chaves que possuem os valores (validados) que os usados foram iniciados nas telas diferentes. Requisitos: · Perl.

Term :: Screen :: Wizard Software Relacionado