Perl为发送的每个kafka消息打开套接字连接

Perl kafka Producer，kafka:：Producer为发布到kafka的每条消息打开套接字

有什么办法可以避免吗。 这是我的密码

$connection = Kafka::Connection->new( host => "kafka-1", port => 9092 );
$producer = Kafka::Producer->new( Connection => $connection );

sub _send_beacon {
    my @beacons = @_;

    my @array = (0..$num_of_partitions-1);

    my $randomelement = $array[rand @array];

        $producer->send(

            'raghavendra',          # topic

            $randomelement ,

            [
                @beacons
            ]
        );
undef $producer;

$connection->close;

undef $connection;

---

我建议您不要使用此模块-如果我必须非常礼貌的话，我会说此模块远不是完美的-非常遗憾的是，这是唯一一个真正可以工作的PERL Kafka模块，它比Kafka python提供的功能低了光年-很遗憾，我建议您不要使用此模块-如果必须的话可笑的是，礼貌地说，这个模块还远远不够完美。令人遗憾的是，这是唯一一个真正可以工作的PERL Kafka模块，它比Kafka python提供的功能低了几光年。这确实令人遗憾