Acme::Honkidasu - 本気出すコピペ
use 5.010;
binmode STDOUT, 'utf8';
use Acme::Honkidasu;
my $time = localtime;
say $time->honkidasu;
say $time->strftime('%F %(');
Acme::Honkidasu is 本気出す。
use Acme::Honkidasu;
my $time = localtime;
say $time->honkidasu;
say $time->honkidasu(1); # positive
本気出す。
use Acme::Honkidasu;
my $time = localtime;
say $time->strftime('%F %(');
say $time->strftime('%F %)'); # positive
add conversion specifier character '%(' to 本気出す。
本気出す 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__
新しい１日。さあはじまる。今日から本気出す。
まだまだ時間はたっぷりある。焦りは禁物。２時から本気出す。
YouTube眺めてたら時間のスピードおかしくなる。あぶなかった。3時から本気出す。。
頭の中にやる気がどんどん湧いてくる。でもまだ早い。はやる気持ちを抑えて、４時から本気出す。
この時間に起きてる自分が心配だ。体調管理も必要。ひと呼吸おいて、5時から本気出す。
きっとみんなはまだ寝てる。慌ててはいけない。６時から本気出す。
眠たいのではない。動き出すのが面倒くさい。あきらめも大切。7時から本気出す。
夜７時頃の10分間を今くつろぐ時間にもってきてほしい。しかたないから８時から本気出す。
ぼーっとしてるんじゃない。今日のことを考えてる。頭を整理して９時から本気出す。
朝から飛ばし過ぎはよくない。大丈夫、ちゃんと計算してる。10時から本気出す。
みんな朝から元気だ。でも乱されない。自分のペースを守る。11時から本気出す。
おなか減った。昼に何食べるか考えてたら集中できない。12時から本気出す。
昼だ。飯食って気分を切り替えて、13時から本気出す。
飯食っておなかいっぱい。これでは頭がまわらない。14時から本気出す
おなかいっぱいを通り過ぎて眠たい。15時から本気出す。
本番は今からだぞ？ここまではウォーミングアップ。16時から本気出す。
1日の疲れがピークに達してきた。ここで無理しても意味が無い。17時から本気だす。
本当の勝負は陽が暮れてから。だから慌てない。自分を信じて、18時から本気出す。
みんな家に帰ってる。なんだろう、この気持ち。心を無にして19時から本気出す。
今日一日の疲れがあちこちにきてる。ちょっと横になって20時から本気出す。
ラストスパートに向けて力を溜める。21時から本気出す。
追い詰められないと本気になれないから、22時から本気出す。
終わり良ければ全て良し。23時から本気出す。
一日終わり。今日はチャンスがなかった。明日から本気出す。
hayajo hayajo@cpan.org
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.