database - perl db 民意调查结果和 poe 轮运行

Question

我正在尝试编写一个轮询数据库表并处理使用 Poe wheel run 找到的记录的应用程序。这似乎并不完美。有什么建议。

db poll sql

SELECT request_type destination port request FROM table1  
    WHERE STATUS_ID=200 limit 10;

结果打印到屏幕并由 poe wheel run 拾取

poe轮运行

sub on_start {
        my $child = POE::Wheel::Run->new(
         Program => [ 'perl ~/sbin/db_poller.pl' ],
         StdoutEvent  => "got_child_stdout",
         StderrEvent  => "got_child_stderr",
         CloseEvent   => "got_child_close",
    );

db poll 产生结果的速度比轮子处理的速度快。

有什么设计建议吗？