Término :: Interactuar

Término :: Interact, le permite obtener datos validados de manera interactiva.
Descargar ahora

Término :: Interactuar Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Phil R Lawrence
  • Sitio web del editor:
  • http://search.cpan.org/~prl/Term-Interact-0.44/Interact.pm

Término :: Interactuar Etiquetas


Término :: Interactuar Descripción

Término :: Interact, le permite obtener datos validados de forma interactiva. Término :: Interact, le permite obtener de forma interactiva los datos validados. Término de uso de HSYNOPSIS :: Interactúe; MY $ TI = TERM :: Interact-> Nuevo (@Args); # Obtener datos validados interactivamente $ validated_data = $ ti-> get (@args); # ¡Compruebe los datos existentes que no se mueren interactivamente "inválidos!" A menos que $ TI-> Valide ($ DATA, @Args); Término :: Interact, le permite obtener datos validados de forma interactiva de un usuario. Esto se logra a través de una API sencilla, en la que especifica varios parámetros para solicitar al usuario, así como "cheques" con los que se validará los datos obtenidos.Examples # Configurar objeto con algunos parámetros opcionales MY $ TI = TERM :: Interact- > NUEVO (# Conjunto de la fecha de formato de Formateo de Fecha Deseado (ver PERLDOC Fecha :: Manip para Sintaxis) Date_Format_Display => '% D-% B-% Y', Date_Format_Return => '% s', # Manija de la base de datos (ver perldoc dbi) a # Permitir SQL_CHECKS. DBH => $ DBH,); My $ NUM1 = $ TI-> Obtenga (msg => 'Ingrese un número de un solo dígito'. "Preguntar => 'Ve por delante, haz mi día:', re_prompt => 'inténtalo de nuevo aquí:', cheque => ,); # # Interacción resultante se ve como: # # Ingrese un número de un solo dígito. # Adelante, haga mi día: W # 'W' no es un número de un solo dígito! # Inténtelo de nuevo aquí: 23 # '23' no es un número de un solo dígito! # Inténtelo de nuevo aquí: 2 MIS $ FECHA = $ TI-> Obtenga (Tipo => 'Fecha', Nombre => 'Fecha de 2001', confirme => 1, cheque => ,]); # # Interacción resultante se ve como: # # Fecha de 2001: ingrese un valor. #> 2002-03-12 # Ingresó: '12 -mar-2002 '. ¿Es esto correcto? (Y | n) # '12 -mar-2002 'no es foo #' foo 'no es una fecha válida #> 2000-12-31 # ingresó: '31 -dec-2000'. ¿Es esto correcto? (Y | n) # '31 -dec-2000 'no es> = 01/01/2001. #> 2001-02-13 # Usted ingresó: '13 -11 -FB-2001 '. ¿Es esto correcto? (Y | n) My $ StATS_AREF = $ TI-> Obtenga (Msg => 'Por favor ingrese una lista delimitada de Estados Unidos'. ', PROMPT =>' State: ', re_prompt =>' intente nuevamente: ', Delimiter =>> ',', Case => 'UC', DBH => $ DBH, cheque => , ) # # Interacción resultante parece: # # Por favor ingrese una lista de estados delimitada por comas. # Estado: foo # 'foo' no es un código de estado válido. Los códigos válidos son: 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, IN, KS, KY, LA, LB, MA, MB, MD, ME, MH, MI, MN, MO, # MP, MS, MT, NB, NC, ND, NF, NF, NH , NJ, NM, NS, NT, NV, NY, OH, OK, # ON, OR, PE, PE, PQ, PR, PW, RI, RM, SC, SD, SK, TN, TT, TX, UT, VA, # VI, VT, WA, WI, WV, WY, YT # Intente nuevamente: AZ, PA MIS $ NUM2 = $ TI-> Obtenga (nombre => 'número menor de 10 y más de 3', cheque => ,]); # # Interacción resultante se ve como: # # número menos de 10 y más de 3: ingrese un valor. #> F # 'f' no es numérico. #> 1 # '1' no es> 3. #> -1 # '-1' no es> 3. #> 14 # '14' no es menor que 10. #> 5 mis $ grados = $ ti-> Obtenga (nombre => 'grado de letra', delimitero => ',', check => ,); # # Interacción resultante se ve como: # # Grado de letras: ingrese un valor o lista de valores delimitados con comas. #> 1 #> S #> X #> A, B #> A, B, C # Si se especifican múltiples cheques, se conserva el número de pedido. En el siguiente ejemplo, el #Check # SQL_CHECK se aplicará antes del regex_Check. MY $ FOO = $ TI-> Obtenga (Nombre => $ Nombre, Delimiter => $ Delim, check => ,); # Solicitudes múltiples en una llamada para obtener el método My ($ foo, $ bar) = $ ti-> obtener (,], # puede usar un href Si prefiere {name => 'bar', delimiter => ',', check => qr / kermit | der | FROSCH /,},]); Requisitos: · Perl


Término :: Interactuar Software relacionado