2012-09-01から1日間の記事一覧
PerlでFSM::Simpleというモジュールを書いてみた。 #!perl -w use strict; use warnings; use FSM::Simple; my $count = 0; my $fsm = FSM::Simple->new({ rules => { init => sub { my $state = shift; if ($count < 20) { $state->next('add'); } else { $…
PerlでFSM::Simpleというモジュールを書いてみた。 #!perl -w use strict; use warnings; use FSM::Simple; my $count = 0; my $fsm = FSM::Simple->new({ rules => { init => sub { my $state = shift; if ($count < 20) { $state->next('add'); } else { $…