如何停止在AnyEvent中读取数据

Question

我使用Perl AnyEvent做了一些代理脚本。

Agent<->Proxy-Server<->client

我的程序在此设置中充当代理服务器。

在AnyEvent::Handle中，如何在客户端获取数据后停止从代理读取数据并恢复？

零件代码：

$hdl->on_read( 
    sub {
        my $h = shift;
        $h->stop_read;
        print $h->rbuf;
        $h->push_write("Hello there");
    }
);

我最近在座席$handle->stop_read活动中添加了on_read，但这并不起作用。代理总是获取数据。