Mercurial > hg > Papers > 2019 > koo-midterm
view midterm/code/abyss.p6 @ 2:10b5e6b8583d
midterm(仮)
author | Fukuda Kouki <k.fukuda@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 23 Oct 2019 15:59:48 +0900 |
parents | |
children |
line wrap: on
line source
unit class Abyss::Server:ver<0.0.1>; use MONKEY-SEE-NO-EVAL; method readeval { my $listen = IO::Socket::INET.new( :listen, :localhost<localhost>, :localport(3333) ); loop { my $conn = $listen.accept; while my $buf = $conn.read(1024) { EVALFILE $buf.decode; } $conn.close; } }