°èº¸ :: Gedcom :: ÀÏÀÚ

Parse Gedcom ³¯Â¥
Áö±Ý ´Ù¿î·Îµå

°èº¸ :: Gedcom :: ÀÏÀÚ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Ron Savage
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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 :: ÀÏÀÚ °ü·Ã ¼ÒÇÁÆ®¿þ¾î