Begriff :: interagieren. Term :: Interact Ermöglicht das Interaktivieren von validierten Daten.
Jetzt downloaden

Begriff :: interagieren. Ranking & Zusammenfassung

Begriff :: interagieren. Stichworte

Perl-Modul interagieren bestätigen Begriff validierten Daten Begriff interagieren

Begriff :: interagieren. Beschreibung

Begriff :: Interact ermöglicht Ihnen, dass Sie interaktiv validierte Daten erhalten können. Begriff :: Interact Ermöglicht das Interaktivieren von validierten Daten. Synopsis Verwenden Sie den Begriff :: Interaktion; mein $ ti = term :: interacing-> neu (@args); # Überprüfen Sie validierte Daten interaktiv $ validated_data = $ ti.> erhalten (@args); # Überprüfen Sie vorhandene Daten nicht interaktiv sterben "ungültig!" Es sei denn, $ ti.> Validate ($ data, @args); Begriff :: interact können Sie interagieren, um validierte Daten von einem Benutzer zu erhalten. Dies wird über eine einfache API erreicht, wobei Sie verschiedene Parameter zum Aufforderung des Benutzers angeben, sowie "Prüfungen", mit denen GOTTO-Daten validiert werden > Neu (# Set gewünschtes Datum Formatierungsverhalten # (siehe Perldoc Datum :: Manip für Syntax) Date_Format_Display => '% d-% b-% y', date_Format_return => '% s', # Datenbankgriff (siehe Perldoc DBI) Zulassen von SQL_Checks. dbh => $ dbh,); Meine $ num1 = $ ti-> get (msg => Geben Sie eine einzigestellige Nummer ein. ', Prompt =>' Gehen Sie voran, machen Sie meinen Tag: ', RE_PROMPT =>' Auch hier versuchen: ', Check => ,); # # Resultierende Interaktion sieht aus wie: # # Geben Sie eine einzigestellige Nummer ein. # Weiter, machen Sie meinen Tag: W # 'W' ist keine einstellige Zahl! # Versuchen Sie es hier erneut: 23 # '23' ist keine einzigestellige Zahl! # Noch mal versuchen '% s ist nicht% s.'],]);); # # Resultierende Interaktion sieht aus wie: # # Datum von 2001: Geben Sie einen Wert ein. #> 2002-03-12 # Sie haben eingegeben: '12 -Mar-2002 '. Ist das richtig? (Y | n) # '12 -mar-2002 'ist nicht foo #' foo 'ist kein gültiger Datum #> 2000-12-31 # Sie haben eingegeben: '31 -Dec-2000'. Ist das richtig? (Y | n) # '31 -Dec-2000 'ist nicht> = 01/01/2001. #> 2001-02-13 # Sie haben eingegeben: '13 -FEB-2001 '. Ist das richtig? (Y | n) Meine $ staated_aref = $ ti> Get (msg => 'Bitte geben Sie eine ankomma getrennte Liste der Zustände ein.', Prompt => 'STATE:', RE_PROMPT => WIEDER VERSUCHEN: ', DELIMINER => ',', Case => 'uc', dbh => $ dbh, Check => , ); # # Resultierende Interaktion sieht aus wie: # # Bitte geben Sie eine Komma getrennte Liste von Staaten ein. # Zustand: foo # 'foo' ist kein gültiger staatlicher Code. Gültige Codes sind: 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, ich, mh, mi, mn, mo, # mp, ms, mt, nb, nc, nd, ne, nf, nh, n , Nj, nm, ns, nt, nv, ny, oh, ok, # auf oder, pa, pe, pq, pr, pw, ri, rm, sc, sd, sk, tn, tt, tx, ut, VA, # VI, VT, WA, WI, WV, WY, YT # Versuchen Sie es erneut: AZ, PA My $ num2 = $ TI-> GET (Name => 'Nummer weniger als 10 und mehr als 3', Check => ,]); # # Resultierende Interaktion sieht aus wie: # # Nummer weniger als 10 und mehr als 3: Geben Sie einen Wert ein. #> f # 'f' ist nicht numerisch. #> 1 # '1' ist nicht> 3. #> -1 # '-1' ist nicht> 3. #> 14 # '14' ist nicht weniger als 10. #> 5 meine $ sorten = $ tisch> Erhalten (Name => 'Briefklasse', Delimiter => ',', Check => ;; # # Resultierende Interaktion sieht aus wie: # # Buchstabenklasse: Geben Sie einen Wert oder eine Liste der mit Kommas begrenzten Werte ein. #> 1 #> s #> x #> a, b #> a, b, c # Wenn mehrere Prüfungen angegeben werden, wird die Bestellnummer aufbewahrt. Im folgenden Beispiel wird der SQL_Check # vor dem regex_check angewendet. mein $ foo = $ ti-> get (Name => $ Name, Delimiter => $ delim, check => ,); # Mehrere Anfragen in einem Anruf, um Methode zu erhalten My ($ Foo, $ bar) = $ ti.> Get (,], # Sie können ein verwenden HREF Wenn Sie {name => 'bar', delimiter => ',', check => qr / kermit | der | frosch /,},]); Anforderungen: · Perl.

Begriff :: interagieren. Zugehörige Software