Termo :: Interact Term :: Interact permite que você seja de forma interativa de dados validados.
Baixe Agora

Termo :: Interact Classificação e resumo

Termo :: Interact Tag

Módulo Perl. interagir validar prazo dados validados Termo Interagir

Termo :: Interact Descrição

Term :: Interact permite que você obtenha interativamente dados validados. Term :: Interact permite que você interativamente se validado prazo uso data.SYNOPSIS :: Interact; my $ ti = Term :: Interact-> novos (@args); # Obter dados validados de forma interativa $ validated_data = $ ti-> get (@args); # Verificação de dados existente não interativa morrer "inválido!" a menos que $ ti-> validate ($ data, @args); Term :: Interact permite que você interativamente obter dados validados a partir de um usuário. Isto é realizado através de uma API simples, onde você especificar vários parâmetros para avisar o usuário, assim como "cheques" com que os dados obtidos serão validated.EXAMPLES # set up objeto com alguns parâmetros opcionais my $ ti = Prazo :: Interact- > new (# set desejada formatação data comportamento # (veja perldoc Date :: Manip para a sintaxe) date_format_display => '% d-% b-% Y', date_format_return => '% s', alça # banco de dados (ver perldoc DBI) para # permitir sql_checks dbh => $ dbh,.); my $ num1 = $ ti-> get (msg => 'Digite um número de um dígito.', prompt => 'Vá em frente, faça o meu dia', re_prompt => 'Try Again Aqui:', cheque => ,); # # Resultante parece Interação como: # # Digite um número de um dígito. # Vá em frente, faça o meu dia: w # 'w' não é um número de um dígito! # Tente Novamente Aqui: 23 # '23' não é um número de um dígito! # Tente Novamente aqui: 2 my $ date = $ ti-> get (type => 'date', name => 'Data de 2001', confirm => 1, cheque => ,]); # # Resultante parece Interação como: # # Data de 2001: Insira um valor. #> 2002/03/12 # Você entrou: '12 -Mar-2002' . Isso é correto? (Y | n) # '12 -Mar-2002' não é foo # 'foo' não é uma data válida #> 2000-12-31 # Você entrou: '31 dec-2000' . Isso é correto? (Y | n) # '31 dec-2000' não é> = 01/01/2001. #> 2001-02-13 # Você entrou: '13 -Feb-2001' . Isso é correto? (Y | n) my $ states_aref = $ ti-> get (msg => 'Por favor, indique uma lista delimitada por vírgulas dos estados.', Prompt => 'Estado:', re_prompt => 'Try Again:', delimitador => '', caso => 'uc', dbh => $ dbh, cheque => , ); # # Resultante parece Interação como: # # Por favor, indique uma lista delimitada por vírgulas dos estados. # Estado: FOO # 'FOO' não é um código de estado válido. Os códigos válidos são: AA, AB, AE, AK, # AL, AP, AQ, AR, AS, AZ, BC, CA, CO, CT, CZ, DC, DE, FL, FM, GA, GU, # HI, IA, ID, IL, EM, KS, KY, LA, LB, MA, MB, MD, ME, MH, MI, MN, MO, # MP, MS, MT, NB, NC, ND, NE, NF, NH , NJ, NM, NS, NT, NV, NY, OH, OK, # ON, OR, PA, PE, PQ, PR, PW, RI, RM, SC, SD, SK, TN, TT, TX, UT, VA, # VI, VT, WA, WI, WV, WY, YT # Try Again: az, pa my $ num2 = $ ti-> get (name => 'Número menos de 10 e mais de 3', cheque => [['<10' '% s

Termo :: Interact Software Relacionado