程嶏清单 17-11.txt

< linux网络编程工具>>配套源码

程序清单17-11：set_event_handler.pl
sub set_event_handler {
        shift unless ref($_[0]); # 如果第一个参数为包名，就执行shift函数
    my ($handle, %args) = @_;
    my $callback;
        if (exists $args{'write'}) {
            $callback = $args{'write'};
          if ($callback) {
                $wt_callbacks{$handle} = $callback;
                $wt_handles->add($handle);
          } else {
                delete $wt_callbacks{$handle};
                $wt_handles->remove($handle);
            }
    }
      if (exists $args{'read'}) {
            $callback = $args{'read'};
            if ($callback) {
                $rd_callbacks{$handle} = $callback;
                $rd_handles->add($handle);
          } else {
              delete $rd_callbacks{$handle};
              $rd_handles->remove($handle);
         }
      }
}