🕗Perlの時間はモジュールで #perlwakate

Transcript

1. Perlͷ࣌ؒ͸ϞδϡʔϧͰ Perlएखͷձ 2020-07-01 @koluku

2. ࣗݾ঺հ • koluku ʢίϧΫʣ • एख, Perlܦݧ͸2ϲ݄, ొஃܦݧແ͠ • Python/Go͕ϝΠϯ

3. ࿩͢͜ͱɾ࿩͞ͳ͍͜ͱ • ࿩͢͜ͱ • ࣌ؒͷ੍ޚͷ͋Ε͜Ε • Time::Pieceָ͕ͩΑ • ࿩͞ͳ͍͜ͱ •

   ࣮૷ͷ࿩

4. $^T • ʮϓϩάϥϜΛ࣮ߦ։࢝ͨ࣌͠ࠁΛɺلݩ (1970೥ͷ࢝Ί) ͔Βͷඵ ਺Ͱ ࣔͨ͠΋ͷͰ͢ʯ • لݩ (1970೥ͷ࢝Ί)

   ͬͯԿΑʁ

5. time • ʮ΄ͱΜͲͷγεςϜͰ͸لݩ͸UTC1970೥1݄1೔00:00:00Ͱ͢; ಛ௃తͳྫ֎ͱͯ͠͸ɺݹ͍MacOSͰ͸ϩʔΧϧλΠϜκʔϯͷ 1904೥1݄1೔00:00:00Λلݩͱͯ͠࢖͍·͢ɻʯ • UTC1970೥1݄1೔00:00:00͸͍ΘΏΔUNIX࣌ؒ • UTC1904೥1݄1೔00:00:00͸͏Δ͏೥ͷྫ֎ճආͷͨΊͷ೔෇ •

   1904೥͔Β2096೥·Ͱ͏Δ͏೥͸ଘࡏ͢Δ

6. $^Tͱtime • ͲͪΒ΋γεςϜ࣌ؒΛฦ͢ͷͰ࣮࣭ಉ͡ • ݱࡏ࣌ؒΛ஌Ζ͏ʹ΋UNIX࣌ؒʢඵ਺ʣͰฦ͞ΕΔͷͰී௨ʹ͸ѻ ͑ͳ͍ • ͦ͜ͰlocaltimeͱgmtimeΛ࢖͏

7. localtime • ʮtimeؔ਺͕ฦ࣌͢ࠁΛɺϩʔΧϧͳλΠϜκʔϯͰଌͬͨ࣌ࠁͱ͠ ͯɺ9ཁૉͷ഑ྻʹม׵͠·͢ɻී௨͸ɺҎԼͷΑ͏ʹͯ͠࢖͍·͢:ʯ • $wday͸೔༵೔Λ0ͱ༵ͨ͠೔ɺ $yday ͸ͦͷ೥ͷԿ೔໨͕ؼͬͯ͘ Δ •

   εΧϥʔͷͱ͖ʹѻ͏ͱจࣈྻͰؼͬͯ͘Δ • ศརʂ

8. gmtime • localtimeͩͱϚγϯͷ࣌ؒʹґଘ͢ΔͨΊ೔ຊͩͱGMT+9:00 • άϦχοδඪ४࣌ʹ໭͢ʹ͸-9࣌ؒ͢Δඞཁ͕… • localtimeͱಉ͡࢓૊ΈͰάϦχοδඪ४࣌Λѻ͏gmtime͕͋ΔͷͰ ҆৺ʂ

9. localtimeͱgmtimeͷ᠘ • ʮ$year ͸ 1900 ೥͔Βͷ೥਺Λ࣋ͪ·͢ɻʯ • ਓ͕ؒಡΈ΍͍͢Α͏ʹԼೋܻͰ൑அͰ͖Δ։࢝஍఺ͷͨΊ • ͍ΘΏΔPOSIX४ڌ

   • ೥͚ͩͰݟΔͱ3ύλʔϯ͋Δ

10. localtimeɺศརʹ͸ศརͳΜ͚ͩͲ… • ਺஋৘ใ͔͠ͳ͍͔Βѻ͏ʹ͸݁ہؔ਺Λ࡞Δඞཁ͕͋Δ • ศརϝιου͕ੜ͑ͨΦϒδΣΫτͰฦͯ͠΄͘͠ͳ͍ʁ

11. Time::Piece • Timepiece͸࣌ܭͱ͍͏ҙຯ • localtime, gmtime͕Time::PieceΦϒδΣΫτͰؼͬͯ͘Δ • ཉ͍͠ػೳ͸େମἧ͍ͬͯΔ

12. Time::PieceͰՃࢉɾݮࢉ • Time::SecondsͰ1෼ʢONE_MINUTEʣͳͲͷఆ͕ٛݺͼग़ͤΔ • Time::PieceʹTime::SecondsͰՃࢉɾݮࢉ͢Δ͜ͱ͕Ͱ͖Δ • localtime + ONE_DAY •

    Time::Pieceಉ࢜Ͱݮࢉ͢ΔͱTime::SecondsͰؼͬͯ͘Δʢඵ਺ʣ • localtime - gmtime

13. Time::PieceͰൺֱ • Time::Pieceಉ࢜Ͱൺֱ͢Δࣄ΋Ͱ͖Δ • return if (localtime - gmtime ==

    ONE_HOUR * 9); • Time::Pieceศར͗͢ͳ͍ʁ

14. Ͱ΋Ͳ͏΍ͬͯՃࢉ΍ൺֱΛͯ͠Δʁ • ͪΐͬͱدΓಓ • Α͘ߟ͑ͨΒTime::Piece͸ΦϒδΣΫτ͔ͩΒී௨ͷԋࢉࢠͰܭࢉ Ͱ͖Δͷ͸͓͔͍͠

15. ͜͏͍͏ͱ͖͸ίʔυΛಡΉͷ͕ૣ͍ • ͱ͏͍͏͜ͱͰmeta::cpan͔ΒBrowseͰίʔυΛݟͯΔͱ Time::Seconndsʹoverloadͱ͍͏໊લ͕ग़ͯ͘Δ

16. overload • perldoc.jpΛݟͯΈΔͱʮPerl ͷԋࢉࢠͷΦʔόʔϩʔυΛߦ͏ύο έʔδʯͱ͋Δ • ͭ·Γࢉज़ԋࢉࢠ΍ൺֱԋࢉࢠΛผͷؔ਺ʹ্ॻ͖Ͱ͖Δ • Time::SecondsͰ+ԋࢉࢠͷ৔߹͸ࠨӈ͔Β஋Λऔͬͯؔ਺ʹೖΕͯ ܭࢉͨ͠΋ͷΛฦ͍ͯ͠Δ

    • ͳΔ΄ͲͶ

17. Ͱ΋େମѻ͍͍ͨͷ͸MySQLͷͱ͖… • ࿩͸໭ͬͯɺ࣌ؒͱ͍͑͹MySQLͰͷѻ͍͸ͳ͔ͳ͔໘౗ • fracʢখ਺఺ҎԼʣ͕௥Ճ͞Ε͍ͯΔ͜ͱ΋͋Δ • DATETIMEͱTIMESTAMP͸ಉ͡ϑΥʔϚοτͰ΋ɺ • αϙʔτ͞Ε͍ͯΔൣғ͕ڱ͍, DATETIME͸݄ɾ೔ʹ00Λڐ༰

    • ಉ͡஋Ͱ΋ҧ͏஋Ͱొ࿥͞ΕΔ͕࣌͋Δ • ͜Μͳͷී௨ʹѻ͍ͨ͘ͳ͍ʂ

18. Time::Piece::MySQL • Time::Pieceͷ֦ுϝιου • Time::Piece->mysql_dateͰMySQLͷDATEܕʹม׵ • Time::Piece->from_mysql_date($datetime)ͰMySQLͷDATEܕ͔Β Time::PieceΦϒδΣΫτʹม׵ • ͜ΕͰMySQLͰͷ࣌ؒͷॲཧʹۤ࿑͢Δ͜ͱ͸ͳ͘ͳͬͨ…ʂ

19. ΍ͬͨʂੈքʹฏ࿨͕๚ΕͨʂͰ΋… • ϛϦඵɾϚΠΫϩඵͷѻ͍͸Ͳ͏͢Δͷʁ • ϓϩάϥϜͷ࣮ߦ࣌ؒΛѻ͍͍ͨΜ͚ͩͲ • Q: Ұఆ࣌ؒॲཧΛsleepͤ͞Δʹ͸ • ೔෇Λ࿨ྐྵʹม׵͍ͨ͠

    • ೔෇ͷൣғʹ͋Δ͔Ͳ͏͔Λָʹܭࢉ͍ͨ͠ • ೔ຊҎ֎ͷ࣌ࠁΛϩέʔϧ͍ͨ͠ • ҧ͏ϩέʔϧ࣌ؒͲ͏͠Ͱࠩ෼Λग़͍ͨ͠ • etc…

20. ͝ΊΜʂLT͡Ό࣌ؒ଍Γͳ͍͔Β ࣗ෼Ͱௐ΂ͯʂ