Mercurial > hg > Others > Abyss-Server

annotate other/client.p6 @ 3:d7762f4e8bfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
redirect answer to client ok
author e165727 <e165727@ie.u-ryukyu.ac.jp>
date Thu, 13 Feb 2020 20:49:23 +0900
parents f3eb367c309f
children 1ad45c44e12f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
f3eb367c309f update server
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
1 use IO::Socket::Unix;
3
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
2 use NativeCall;
2
f3eb367c309f update server
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
3
f3eb367c309f update server
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
4 my $conn = IO::Socket::Unix.new( :host<localhost>,
0
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 :port(3333) );
2
f3eb367c309f update server
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 0
diff changeset
6
3
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
7 $conn.print: '/Users/Koo/College/lab/Perl6/origin/Otoya-Server/other/fibonacci.p6';
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
8
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
9 my $sock_msg;
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
10
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
11 while my $buf = $conn.recv(:bin)
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
12 {
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
13 $sock_msg = $buf.decode;
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
14 last;
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
15 }
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
16
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
17 say $sock_msg;
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
18
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
19 #say $conn.recv;
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
20
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
21
d7762f4e8bfa redirect answer to client ok
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 2
diff changeset
22 #print $conn;
0
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 #$conn.close;