# NAME Acme::Honkidasu - жњ¬ж°—е‡єгЃ™г‚ігѓ”гѓљ # SYNOPSIS use 5.010; binmode STDOUT, 'utf8'; use Acme::Honkidasu; my $time = localtime; say $time->honkidasu; say $time->strftime('%F %('); # DESCRIPTION Acme::Honkidasu is жњ¬ж°—е‡єгЃ™гЂ‚ # METHODS ## honkidasu use Acme::Honkidasu; my $time = localtime; say $time->honkidasu; say $time->honkidasu(1); # positive жњ¬ж°—е‡єгЃ™гЂ‚ # EXTEND strftime use Acme::Honkidasu; my $time = localtime; say $time->strftime('%F %('); say $time->strftime('%F %)'); # positive add conversion specifier character '%(' to жњ¬ж°—е‡єгЃ™гЂ‚ # EXAMPLES жњ¬ж°—е‡єгЃ™ per hour. (default: per month) #!/usr/bin/env perl use strict; use warnings; use 5.010; use utf8; binmode STDOUT, ":utf8"; use Acme::Honkidasu; $Acme::Honkidasu::DETERMINE = sub { my $time = shift; my $list = shift; my $idx = $time->hour % scalar(@$list); chomp( my $msg = $list->[$idx] ); return $msg; }; $Acme::Honkidasu::LIST_HONKIDASU = [<DATA>]; say localtime->honkidasu; say localtime->strftime('%('); __DATA__ ж–°гЃ—гЃ„пј‘ж—ҐгЂ‚гЃ•гЃ‚гЃЇгЃгЃѕг‚‹гЂ‚今日から本気出す。 まだまだ時間はたっぷりある。焦りは禁物。2時から本気出す。 YouTube眺めてたら時間のスピードおかしくなる。あぶなかった。3時から本気出す。。 й гЃ®дёгЃ«г‚„る気がどんどん湧いてくる。でもまだ早い。はやる気持ちを抑えて、4時から本気出す。 この時間に起きてる自分が心配だ。体調管理も必要。ひと呼吸おいて、5時から本気出す。 きっとみんなはまだ寝てる。慌ててはいけない。6時から本気出す。 зњ гЃџгЃ„гЃ®гЃ§гЃЇгЃЄгЃ„гЂ‚е‹•гЃЌе‡єгЃ™гЃ®гЃЊйќўеЂ’гЃЏгЃ•гЃ„гЂ‚гЃ‚гЃЌг‚‰г‚Ѓг‚‚е¤§е€‡гЂ‚7時から本気出す。 е¤њпј—ж™‚й ѓгЃ®10分間を今くつろぐ時間にもってきてほしい。しかたないからпјж™‚から本気出す。 гЃјгѓјгЃЈгЃЁгЃ—гЃ¦г‚‹г‚“гЃг‚ѓгЃЄгЃ„гЂ‚д»Љж—ҐгЃ®гЃ“гЃЁг‚’иЂѓгЃ€гЃ¦г‚‹гЂ‚й を整理して9時から本気出す。 朝から飛ばし過ぎはよくない。大丈夫、ちゃんと計算してる。10時から本気出す。 みんな朝から元気だ。でも乱されない。自分のペースを守る。11時から本気出す。 гЃЉгЃЄгЃ‹жё›гЃЈгЃџгЂ‚жјгЃ«дЅ•йЈџгЃ№г‚‹гЃ‹иЂѓгЃ€гЃ¦гЃџг‚‰й›†дёгЃ§гЃЌгЃЄгЃ„гЂ‚12時から本気出す。 жјгЃ 。飯食って気分を切り替えて、13時から本気出す。 йЈЇйЈџгЃЈгЃ¦гЃЉгЃЄгЃ‹гЃ„гЃЈгЃ±гЃ„гЂ‚гЃ“г‚ЊгЃ§гЃЇй がまわらない。14時から本気出す гЃЉгЃЄгЃ‹гЃ„гЃЈгЃ±гЃ„г‚’йЂљг‚ЉйЃЋгЃЋгЃ¦зњ гЃџгЃ„гЂ‚15時から本気出す。 本番は今からだぞ?ここまではウォーミングアップ。16時から本気出す。 1ж—ҐгЃ®з–Іг‚ЊгЃЊгѓ”гѓјг‚ЇгЃ«йЃ”гЃ—гЃ¦гЃЌгЃџгЂ‚гЃ“гЃ“гЃ§з„Ўзђ†гЃ—гЃ¦г‚‚ж„Џе‘ігЃЊз„ЎгЃ„гЂ‚17時から本気だす。 жњ¬еЅ“гЃ®е‹ќиІ гЃЇй™ЅгЃЊжљ®г‚ЊгЃ¦гЃ‹г‚‰гЂ‚гЃ гЃ‹г‚‰ж…ЊгЃ¦гЃЄгЃ„гЂ‚и‡Єе€†г‚’дїЎгЃгЃ¦гЂЃ18時から本気出す。 みんな家に帰ってる。なんだろう、この気持ち。心を無にして19時から本気出す。 今日一日の疲れがあちこちにきてる。ちょっと横になって20時から本気出す。 гѓ©г‚№гѓ€г‚№гѓ‘гѓјгѓ€гЃ«еђ‘гЃ‘гЃ¦еЉ›г‚’жєњг‚Ѓг‚‹гЂ‚21時から本気出す。 追い詰められないと本気になれないから、22時から本気出す。 終わり良ければ全て良し。23時から本気出す。 一日終わり。今日はチャンスがなかった。жЋж—ҐгЃ‹г‚‰жњ¬ж°—е‡єгЃ™гЂ‚ # AUTHOR hayajo <hayajo@cpan.org> # LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.