Mercurial > hg > Others > Abyss-Server
view other/client.p6 @ 4:1ad45c44e12f default tip
add time count script
author | e165727 <e165727@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 15 Feb 2020 05:02:22 +0900 |
parents | d7762f4e8bfa |
children |
line wrap: on
line source
use IO::Socket::Unix; use NativeCall; my $conn = IO::Socket::Unix.new( :host<localhost>, :port(3333) ); $conn.print: '/Users/Koo/College/lab/my-papers/Abyss-Server/other/fibonacci.p6'; my $sock_msg; while my $buf = $conn.recv(:bin) { $sock_msg = $buf.decode; last; } say $sock_msg; #say $conn.recv; #print $conn; #$conn.close;