hirose31 https://blog.hatena.ne.jp/hirose31/ （ひ）メモ https://hirose31.hatenablog.jp/ 勢いで Text::LBSV という perl モジュールを書いたけど、ただ bell を split してコロンで split するだけなのでわざわざこんな駄モジュールを使うまでもない、という･･･。 use Text::LBSV; use Time::HiRes qw(sleep); my @curry = qw(mouyan bon hause java); while (1) { print Text::LBSV->new( time => time(), eat => $curry[int(rand(scalar @curry))], )->to_s, "\n"; sleep 0.3… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhirose31.hatenablog.jp%2Fentry%2F20130208%2F1360305879" title=" Text::LBSV - （ひ）メモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-02-08 15:44:39 rich https://hirose31.hatenablog.jp/entry/20130208/1360305879 1.0 100%