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; }
_人人人人人人人人_
> うるさい!! <
 ̄Y^Y^Y^Y^Y^Y^Y ̄