Term :: Interactie TERM :: InterACT kan u interactief gevalideerde gegevens krijgen.
Download nu

Term :: Interactie Rangschikking & Samenvatting

Term :: Interactie Tags

Perl-module interactie valideren termijn gevalideerde gegevens term interact

Term :: Interactie Beschrijving

Term :: Interact kunt u interactief krijgen gevalideerde gegevens. Term :: Interact kunt u interactief krijgen gevalideerd data.SYNOPSIS gebruik Term :: Interact; mijn $ ti = Term :: Interact-> new (@args); # Krijgen gevalideerde gegevens interactief $ validated_data = $ Ti-> get (@args); # Check bestaande gegevens non-interactief sterven "Invalid!" tenzij $ Ti-> valideren ($ data, @args); Term :: Interact kunt u interactief krijgen gevalideerde gegevens van een gebruiker. Dit wordt bereikt via een eenvoudige API, waarin je verschillende parameters opgeven voor vragen aan de gebruiker, evenals "checks" waarmee gekregen gegevens validated.EXAMPLES # set-up object met een aantal optionele parameters my $ ti = Term zal :: Interact- > new (# set gewenste datumnotatie gedrag # (zie perldoc date :: Manip voor de syntax) date_format_display => '% d-% b-% Y', date_format_return => '% s', # gegevensbestand handvat (zie perldoc DBI) naar # toestaan sql_checks dbh => $ DBH,.); mijn $ num1 = $ Ti-> get (msg => 'Voer een enkel cijfer.', prompt => 'Ga je gang, maak mijn dag', re_prompt => 'Try Again Here:', check => ); # # Resulterend Interaction ziet eruit als: # # Voer een enkel cijfer. # Ga je gang, maak mijn dag: w # 'w' is geen enkel getal cijfer! # Try Again Here: 23 # '23' is geen enkel cijfer! # Try Again Hier: 2 my $ date = $ Ti-> get (type => 'date', de naam => 'Datum vanaf 2001', bevestigen => 1, check => ]); # # Resulterend Interaction ziet eruit als: # # Datum vanaf 2001: Voer een waarde in. #> 2002/03/12 # U hebt: '12 -Mar-2002' . Is dit correct? (Y | n) # '12 -Mar-2002' is niet foo # 'foo' is geen geldige datum #> 2000/12/31 # U hebt: '31 -Dec-2000' . Is dit correct? (Y | n) # '31 -Dec-2000' is niet> = 01/01/2001. #> 2001/02/13 # U hebt: '13 -Feb-2001' . Is dit correct? (Y | n) mijn $ states_aref = $ Ti-> get (msg => 'Geef een door komma's gescheiden lijst van staten.', Prompt => 'State', re_prompt => 'Try Again', delimiter => '', case => 'uc', dbh => $ dbh, check => , ); # # Resulterend Interaction ziet eruit als: # # Gelieve een door komma's gescheiden lijst van staten. # State: FOO # 'FOO' is geen geldige staat code. Geldige codes zijn: 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, 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 mijn $ num2 = $ Ti-> get (name => 'Aantal minder dan 10 en meer dan 3', check => ]); # # Resulterend Interaction ziet eruit als: # # getal kleiner dan 10 en meer dan 3: Voer een waarde in. #> F # 'f' is niet numeriek. #> 1 # '1' is niet> 3. #> -1 # '-1' is niet> 3. #> 14 # '14' is niet minder dan 10. #> 5 mijn $ kwaliteiten = $ ti-> krijgen (name => 'brievenrang', delimiter => '', check => ); # # Resulterend Interaction ziet eruit als: # # brief rang: Voer een waarde of een lijst met waarden gescheiden door komma's. #> # 1> s #> X #> a, b #> A, B, C # Als meerdere controles worden gespecificeerd, de volgorde # behouden blijft. In onderstaand voorbeeld wordt de sql_check # worden aangebracht voordat de regex_check. mijn $ foo = $ Ti-> get (name => $ name, delimiter => $ delim, check => ); # Meerdere verzoeken in een oproep aan methode om mijn ($ foo, $ bar) = $ Ti-> get (], # kunt u een gebruiken href als u liever {name => 'bar', delimiter => '', check => qr / kermit | der | frosch /,}]); Vereisten: · Perl

Term :: Interactie Gerelateerde software