DateTime :: Á¤È®ÇÑ

DateTime :: Á¤¹Ðµµ´Â Ãß°¡ GPS ÀÛ¾÷À¸·Î ÀϹÝÀûÀÎ ½Ã°£ ¹× ³¯Â¥ ÀÛ¾÷À» ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

DateTime :: Á¤È®ÇÑ ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Blair Zajac
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~bzajac/Apache-ConfigParser-1.01/lib/Apache/ConfigParser.pm

DateTime :: Á¤È®ÇÑ Å±×


DateTime :: Á¤È®ÇÑ ¼³¸í

DateTime :: Á¤¹Ðµµ´Â Ãß°¡ GPS ÀÛ¾÷À¸·Î ÀϹÝÀûÀÎ ½Ã°£ ¹× ³¯Â¥ ÀÛ¾÷À» ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. DateTime :: Á¤È®ÇÑ Ãß°¡ GPS ÀÛ¾÷À¸·Î ÀϹÝÀûÀÎ ½Ã°£ ¹× ³¯Â¥ ÀÛ¾÷À» ¼öÇà ÇÒ ¼ö ÀÖ½À´Ï´Ù. ½Ä ³ëÇÁ°¡ DateTime :: Á¤È®ÇÏ°Ô »ç¿ëÇÕ´Ï´Ù. DateTime :: Á¤È®ÇÑ QW (½Ã°£ º¸Çà±â)¸¦ »ç¿ëÇϽʽÿÀ. # »ý¼ºÀÚ¿Í ½Ã°£À» ¼³Á¤ÇÏ´Â ¹æ¹ý. $ t1 = datetime :: Á¤È®ÇÑ -> »õ·Î¿î; $ t2 = datetime :: Á¤È®ÇÑ -> new ( '1998.4. 312 : 13 : 44.054'); $ T3 = DateTime :: Á¤È®ÇÑ -> »õ·Î¿î (½Ã°£ () - 100.23456); $ t4 = datetime :: Á¤È®ÇÑ -> new ( '1998.04.24'); $ t1-> set_localtime_from_epoch_time; $ T1-> set_gmtime_from_epoch_time (time + 120.987); $ T1-> set_from_datetime ( '1998.03.2316 : 58 : 14.65'); $ T1-> SET_TIME ( 'YDHMS', 1998, 177, 9, 15, 26.5); # ÀÌ°ÍÀº $ d3-> set_from_datetime (...) $ t3-> dscanf ( "% ^ y. % m. % d % h : % m : % s", "1998.03.2520:25 : 23 "); if ($ msg = $ d1-> dscanf ( "% ~ m", $ ÀÔ·Â)) {Àμâ "¿À·ù : $ msgn"; Àμâ "´Â 3 ±ÛÀÚÀÇ ¿ù Abbrev.n"À» ÀÔ·ÂÇؾßÇÕ´Ï´Ù. } # ½Ã°£ÀÇ ´Ù¸¥ ºÎºÐÀ» ¾òÀ¸½Ê½Ã¿À. $ Year = $ T3-> ³â; $ month = $ T3-> ¿ù; $ day = $ t3-> ÀÏ; $ ½Ã°£ = $ T3-> ½Ã°£; $ ºÐ = $ T3-> ºÐ; $ secuit = $ t3-> ÃÊ; ($ ³â, $ day_of_year) = $ t3-> get_time ( 'yj'); # Àμ⠽ð£°ú ³¯Â¥. $ T2-> asctime; $ T2-> strftime ( '% t % c % n'); $ T2-> DPrintF Àμâ ( "% ^ y. % m. % d % h : % m : % s"); # DateTime Print $ T2-> DPrintF ( "% ~ w % ~ m % -D % h : % m : % s cst % ^ y"); # ctime # º¹»ç ½Ã°£. MY $ T4 = $ T2-> º¹»ç; # ´Ù¸¥ ½Ã°£ °´Ã¼¸¦ ´Ù¸¥ ½Ã°£°ú µ¿½Ã¿¡ ¼³Á¤ÇÕ´Ï´Ù. $ T2¸¦ $ T2¿Í µ¿ÀÏÇÏ°Ô ¼³Á¤ÇÕ´Ï´Ù. $ T3-> º¹Á¦ ($ T2); # µÎ ¹øÀÇ Â÷À̸¦ ã½À´Ï´Ù. $ secs_from_midnight = $ t4 - $ t1; $ secs_from_midnight = $ T4-> diff ($ t1); # ½Ã°£, ÀÏ, °³¿ù µîÀ» Ãß°¡ÇϽʽÿÀ. $ T1 = $ T4 + 3600; # $ T1Àº ÀÚÁ¤ $ T1-> INC_MONTH (2) ÈÄ 1 ½Ã°£ ÈÄÀÔ´Ï´Ù. # $ T1 $ T1-> floor_month¿¡ 2 °³¿ùÀ» Ãß°¡ÇϽʽÿÀ; # $ t1 $ T1 - = 0.25; # $ T1¿¡¼­ 1/4ÀÇ 1/4 »©±â DateTime :: Á¤È®ÇÏ°Ô ºñ±³ÇÏ°í Á¤·Ä ÇÒ ¼ö ÀÖ½À´Ï´Ù. Àμâ "´Ê°Ô!" if ($ t1> $ t4); @sorted = @birthdays Á¤·Ä; # Á¤»óÀûÀÎ ºñ±³ ÀÛ¾÷ ±¦Âú¾Æ¿ä # GPS ÁÖ, ÃÊ ¹× ÇϷ縦 ¾òÀ¸½Ê½Ã¿À. $ gps_week = $ t1-> gps_week; $ gps_seconds = $ t1-> gps_seconds; $ gps_day = $ t1-> gps_day; ($ gps_week, $ gps_seconds, $ gps_day) = $ t1-> gps_week_seconds_day; ¿ä±¸ »çÇ× : ¡¤ perl


DateTime :: Á¤È®ÇÑ °ü·Ã ¼ÒÇÁÆ®¿þ¾î