Text::LBSV

勢いで 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;
}

• https://github.com/hirose31/perl-Text-LBSV
• https://metacpan.org/module/Text::LBSV

＿人人人人人人人人＿
＞　うるさい！！　＜
ï¿£Y^Y^Y^Y^Y^Y^Yï¿£