°èº¸ :: Gedcom :: ÀÏÀÚ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rsavage/
°èº¸ :: Gedcom :: ÀÏÀÚ Å±×
°èº¸ :: Gedcom :: ÀÏÀÚ ¼³¸í
GEDCOM :: GEDCOM :: DATE´Â GEDCOM ³¯Â¥¸¦À§ÇÑ Æļ¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Synopsis My ($ Parser) = °èº¸ :: Gedcom :: Date -> New; ¶Ç´Â ÁøÇà º¸°í¼¸¦ ÀμâÇÏ´Â µð¹ö±× ¸ðµå¿¡¼ : my ($ parser) = °èº¸ :: gedcom :: date -> new (debug => 1); #ÀÌ »ùÇÃÀº T / Value.t¿¡¼ÀÔ´Ï´Ù. $ $ Èĺ¸ÀÚ ( '(¾Ë ¼ö ¾øÀ½ ³¯Â¥)', PARSE_INTERPRETED_DATE ()¸¦ »ç¿ëÇϽʽÿÀ. 'ABT 12001', # parse_approximate_date ()¸¦ »ç¿ëÇϽʽÿÀ. 'AFT 12001', PARSE_DATE_RANGE ()¸¦ »ç¿ëÇϽʽÿÀ. '0' parse_date_period ()) {my ($ hashref) = $ parser -> parse_date_value (³¯Â¥ => $ Èĺ¸ÀÚ); } Á¦Ç°ÀÇ È¨ÆäÀÌÁö
°èº¸ :: Gedcom :: ÀÏÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î