FIFOをやるぞ

Perl

メッセージを１０件までスタックしたかったの。
で、こんなコードを書いたの。



use Readonly;

Readonly my $STACK_MAX => 10;

my @STACK_MSG;

push @STACK_MSG ,"($sender) $msg";

if (scalar(@STACK_MSG) > $STACK_MAX) {

    shift @STACK_MSG;

}

微妙とか言われたの。
そしたらこういうのはと言われた

http://d.hatena.ne.jp/tokuhirom/20060823

みゅー。
ってかこういうモジュールありそう。

有識者のご意見もとむ。