Mercurial > hg > Others > Abyss-Server

annotate other/loop.p6 @ 0:11ef16a351e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
move from otoya
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jan 2020 12:11:01 +0900
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #$conn.print: 'say "helllo";';
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 #say $conn.recv;
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 #$conn.close;
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 for 1..100 {
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 my $conn = IO::Socket::INET.new( :host<localhost>,
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 :port(3333) );
11ef16a351e6 move from otoya
anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 }