2013-06-07から1日間の記事一覧
オペミスを防ぐためにチェック処理をいれないと。。 というかこんなことしないか。 use HTTP::Daemon; my $d = HTTP::Daemon->new(LocalAddr=>'localhost', LocalPort=>8080) || die; while (my $c = $d->accept) { my %param = split("[&=]",substr($c->get…
オペミスを防ぐためにチェック処理をいれないと。。 というかこんなことしないか。 use HTTP::Daemon; my $d = HTTP::Daemon->new(LocalAddr=>'localhost', LocalPort=>8080) || die; while (my $c = $d->accept) { my %param = split("[&=]",substr($c->get…