annotate Prepaper/code/client.p6 @ 24:27f7561b1135

スライド仮完成
author e165727 <e165727@ie.u-ryukyu.ac.jp>
date Mon, 17 Feb 2020 03:19:17 +0900
parents b96b3244307b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
22
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
1 use IO::Socket::Unix;
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
2
24
27f7561b1135 スライド仮完成
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 22
diff changeset
3 my $conn = IO::Socket::Unix.new( :host<localhost>,
8
e234acddcfab add prepaper
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 :port(3333) );
e234acddcfab add prepaper
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
22
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
6 $conn.print: 'Absolute file path';
8
e234acddcfab add prepaper
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7
22
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
8 say $conn.lines;
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
9
b96b3244307b update paper & slide
e165727 <e165727@ie.u-ryukyu.ac.jp>
parents: 8
diff changeset
10 $conn.close;