将给定/当与 IO::Select can_read 一起使用

Question

我正在制作一个 DIY 睡眠研究过滤器，它将记录来自音频流（2K 字节/秒）、加速度计（10 读数/秒）和控制台终端按键输入的事件。

我已经将这段代码放在一起：

$SELECT=IO::Select->new or die "muffed create SELECT: $!\n" ;

my $i ; foreach ($AREC,$IMU,$STDIN) {
        $i++ ;
        $SELECT->add($_) or die "muffed SELECT $i: $!\n" ;
}

while (TRUE) {
    foreach ($SELECT->can_read ) {
        given ($_) {
            when ($AREC)  {}# handle audio from pipe
            when ($IMU)   {}# handle acceleromter from UDP socket}
            when ($STDIN) {}# handle keystrokes }
        }
    }           
}

1. 所有给定/当示例都使用字符串值或正则表达式。这适用于文件句柄吗？
2. 我记得较慢的设备应该具有更高的优先级，以避免淹没在来自较快设备的大量数据输入中。应该如何使用 IO::Select add 和 can_read 处理这个问题？

我在 Ubuntu 20.04 桌面上使用 perl 5.30.0。感谢任何建议。

Answer 1

智能匹配是实验并被认为是失败的。应该避免！

while (1) {
   for ($SELECT->can_read ) {
      if    ( $_ == $AREC  ) { }
      elsif ( $_ == $IMU   ) { }
      elsif ( $_ == $STDIN ) { }
   }
}

Answer 2

我喜欢为这类事情使用调度表，使用预期值作为哈希键，并使用子例程作为哈希值运行。一些 Perl 伪代码：

my $subs = (
    SOME_AREC_VALUE  => sub { ... },
    SOME_IMU_VALUE   => sub { ... },
    SOME_STDIN_VALUE => sub { ... },
    );

$subs->{$_}->();

我在 Mastering Perl 和 有效的 Perl 编程。