µ¥ÀÌÅÍ Çü½Ä

Data :: TypeÀº ´Ù±â´É µ¥ÀÌÅÍ ¹× °ª À¯ÇüÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

µ¥ÀÌÅÍ Çü½Ä ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Murat nalan
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~muenalan/Winamp-Control-0.2.1/Control.pm

µ¥ÀÌÅÍ Çü½Ä ű×


µ¥ÀÌÅÍ Çü½Ä ¼³¸í

data :: typeÀº ´Ù±â´É µ¥ÀÌÅÍ ¹× °ª À¯ÇüÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. data :: typeÀº ´Ù¿ëµµÀÇ µ¥ÀÌÅÍ ¹× °ª À¯ÇüÀÌÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis data :: type qw (: ¸ðµÎ); ¿À·ù qw (: ½Ãµµ)¸¦ »ç¿ëÇϽʽÿÀ. {$ À̸ÞÀÏ È®ÀÎ, À̸ÞÀÏÀ» È®ÀÎÇϽʽÿÀ; $ homepage, uri ( 'http')¸¦ È®ÀÎÇϽʽÿÀ. $ CC, CREDTCARD ( 'MASTERCARD', 'VISA')¸¦ È®ÀÎÇϽʽÿÀ. $ answer_a, YesNo È®ÀÎÀ» È®ÀÎÇϽʽÿÀ; $ ¼º, ¼ºº°À» È®ÀÎÇϽʽÿÀ. 'one', enum (qw (qw (12 3))¸¦ È®ÀÎÇϽʽÿÀ. , ¼¼Æ® (QW (QW (QW (QW (12 34 56))¸¦ È®ÀÎÇϽʽÿÀ.); $ SERVER_IP4, IP ( 'V4')¸¦ È®ÀÎÇϽʽÿÀ. $ SERVER_IP6, IP ( 'V6')¸¦ È®ÀÎÇϽʽÿÀ. 'A35231AH1', ½ÅÀ» È®ÀÎÇϽʽÿÀ. '14565935', ISSNÀ» È®ÀÎÇϽʽÿÀ. 'de', langcode¸¦ È®ÀÎÇϽʽÿÀ. 'µ¶ÀϾî', LangNameÀ» È®ÀÎÇϽʽÿÀ. "012345678905 ', UPC ()¸¦ È®ÀÎÇϽʽÿÀ. '5276440065421319', CreditCard ( 'MasterCard'))¸¦ È®ÀÎÇϽʽÿÀ. 'ATGCAAT', BIO :: DNA¸¦ È®ÀÎÇϽʽÿÀ. 'Augggaaau', Bio :: RNA¸¦ È®ÀÎÇϽʽÿÀ. '01001001110110101', ¹ÙÀ̳ʸ®¸¦ È®ÀÎÇϽʽÿÀ. '0F 0C 0A', HEX; Á¤ÀÇ µÈ '0'À» È®ÀÎÇϽʽÿÀ. '234', num (20)À» È®ÀÎÇϽʽÿÀ. '1', BOOL ( 'true')¸¦ È®ÀÎÇϽʽÿÀ. '100', int È®ÀÎ; '1.1', ½ÇÁ¦¸¦ È®ÀÎÇϽʽÿÀ. ³» $ foo = Ãູ ( '123', '¹«¾ð°¡'); $ foo È®ÀÎ, ref; $ foo, ref (qw (´Ù¸¥ °Í))¸¦ È®ÀÎÇϽʽÿÀ. , ref ( '¹è¿­')¸¦ È®ÀÎÇϽʽÿÀ. "x 20, varchar (20)À» È®ÀÎÇϽʽÿÀ. '2001-01-01', ³¯Â¥ ( 'mysql')¸¦ È®ÀÎÇϽʽÿÀ. '1611 ³â 11 ¿ù 94 ÀÏ 22:28:20 PST ', ³¯Â¥ ('dateparse ')¸¦ È®ÀÎÇϽʽÿÀ. '9999-12-3123:59:59', DateTimeÀ» È®ÀÎÇϽʽÿÀ. '1970-01-0100:00:00', ŸÀÓ ½ºÅÆÇÁ È®ÀÎ "-838 : 59 : 59 ', ½Ã°£; '2155', ³âÀ» È®ÀÎÇϽʽÿÀ. '69', ¿¬µµ¸¦ È®ÀÎÇϽʽÿÀ (2); '0'x 20, tinytext¸¦ È®ÀÎÇϽʽÿÀ. '0'x 20, mediumtext¸¦ È®ÀÎÇϽʽÿÀ. '0'x 20, longtext¸¦ È®ÀÎÇϽʽÿÀ. '0'x 20, text; '80', Æ÷Æ®¸¦ È®ÀÎÇϽʽÿÀ. 'www.cpan.org', µµ¸ÞÀÎÀ» È®ÀÎÇϽʽÿÀ. } catch type :: ¿¹¿Ü°¡ÀÖ´Â {My $ e = shift; % s line % sn ", $ e-> °ª, $ e-> À¯Çü -> Á¤º¸, $ e-> was_file, $ e-> was_line; Foreach My $ Entry (TestPlan ($ e-> À¯Çü)) {printf "tvocting % s % s", $ Ç׸ñ -> ? 'is': '´Â', $ entry -> -> info (); }}; # ¹Ï°Å ³ª ¸»ÇÏÁö ¾Ê¾Æ, ÀÌ°ÍÀº Á¤¸»·Î À§Á¶ (À̸ÞÀÏ, ´Ü¾î, ½Å¿ë Ä«µå ( 'mastercard', 'ºñÀÚ'), ¹ÙÀÌ¿À :: DNA, 16 Áø¼ö ( '$ _-> Á¤º¸); $ _-> »ç¿ë Àμâ; $ _-> ¼öÃâ Àμâ; # ´Ù¸¥ À̸§À» Àμâ $ _-> param; # ³» ¼±ÅÃÀº ¹«¾ùÀԴϱî. $ _-> ISA ( 'Itype :: Business') Àμâ # ºñÁî´Ï½º °ü·Ã À¯ÇüÀԴϱî? $ _-> ¹öÀü Àμâ; # ù ¹ø° Apperance µ¥ÀÌÅÍ :: À¯Çü ¸±¸®½º} # ¹­ÀÎ ÀÎÅÍÆäÀ̽º (º°Äª 'À¯Çü') {typ enum (QW (DNA RNA)), (³» $ a, my $ b)À» ½ÃµµÇϽʽÿÀ. ISTYP ($ a)°¡ isTyp ($ a) ÀÎ °æ¿ì "a typ"Àμâ "Àμâ; $ a = 'dna'; # $ alias´Â 'DNA'¶Ç´Â 'RNA'$ a = 'RNA'¸¦ ¼ö¶ôÇÕ´Ï´Ù. $ a = 'xna'; # ¿¹¿Ü UNTYP ($ º°Äª)¸¦ throwÇÕ´Ï´Ù. } catch type :: ¿¹¿Ü :: % s line % sn ", $ e-> °ª, $ e-> À¯Çü -> Á¤º¸, $ e-> was_file, $ e -> WAS_LINE; }; dverify ($ À̸ÞÀÏ, À̸ÞÀÏ) ¶Ç´Â ´ÙÀÌ $!; ³» $ g = data :: type :: guard-> new (Çã¿ë => , ¿¬¶ôó => ÇÏÀ§ {my % args = @_; $ args {lucy}},}); $ G-> °Ë»ç ($ h); # Compact ¹öÀüÀÌ {email => exp; (1), firstname => word}, $ object_a, $ object_b; Àμâ toc (); Print Catalog ();ÀÌ ¸ðµâÀº ´Ù¾çÇÑ µ¥ÀÌÅÍ ¹× °ª À¯ÇüÀ» Áö¿øÇÕ´Ï´Ù. ÀϹݿ¡¼­ ²¨³»´Â °ÍÀº ¸Å°³ º¯¼öÈ­ µÈ À¯ÇüÀ» Áö¿øÇÕ´Ï´Ù (¿¹ : µ¥ÀÌÅͺ£À̽º´Â I.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.). ÀϺΠȦ¼ö µ¥ÀÌÅÍ¿¡ ´ëÇØ ÀÔ·Â µÈ º¯¼ö¸¦ ±ÞÁöÇÏ·Á°íÇϸéÀÌ ¸ðµâÀº ±×°¡ ¿¹»ó ÇÑ °ÍÀ» ¼³¸íÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


µ¥ÀÌÅÍ Çü½Ä °ü·Ã ¼ÒÇÁÆ®¿þ¾î