~~NOTOC~~
---json
{
    "title":"disconnect()",
    "description":"指定するクライアントに切断イベントを発動させて接続を切断します"
}
---
\\
====== disconnect() ======

<blockquote>
==== 説明 ====
指定するノードに切断イベントを発動させて接続を切断します。\\

==== 構文 ====
<code perl>
disconnect( nodeno )
</code>

==== 引数 ====
<code perl>
  nodeno : ノード番号
</code>
※ノード番号が無効、または番号を省略した場合は実行されません。\\

==== 返り値 ====
ありません。\\

==== 備考 ====
この関数はログアウトやタイムアウトなど、ユーザの要求や状態に応じて切断するときに呼び出します。\\

本関数を呼び出すと切断イベント(onDisconnect)が発動し、onDisconnectハンドラが呼び出されます。\\

Disconnectハンドラから本関数を呼び出すと永久的に呼び出されるため、
もし関数を呼び出したときは無効となります。\\

<code perl>
sub ondisconnect {
  my $self = shift;
  my $me = $self->from();                      # 対応中ノード番号

  my $r1 = $self->disconnect( $fileno );       # disconnect()してみる
  printf "*(1)** disconnect.r=(%d)\n", $r1;    # r=(-2) : 再呼び出しが行われた(無効)
}
</code>
</blockquote>

~~DISCUSSION~~