IO::Select 并向句柄添加标签

Question

我想知道在我使用时向句柄添加额外数据的最佳方法是IO::Select什么？

基本上我想添加一个句柄，IO::Select但也有附加到该句柄的附加信息，我可以稍后检索。

注意：我知道我可以保留一个单独的数据结构来保存一个句柄和附加数据，但这需要协调两个数据结构，这可能会导致比其价值更多的问题。

Answer 1

一个直接的方法来自IO::Select docs for addmethod

每个句柄可以是 IO::Handle 对象、整数或数组引用，其中第一个元素是 IO::Handle 或整数。

因此，有一个可以使用的“数组引用”。

一个例子：

use warnings;
use strict;
use feature 'say';

use Time::HiRes qw(sleep);
use POSIX qw(:sys_wait);
use IO::Select;

my $sel = IO::Select->new;

my @procs;
for my $job (1..3) {
    pipe my ($reader, $writer);
    $sel->add( [$reader, "job-$job"] );  # add a tag to the handle

    my $pid = fork // die "Can't fork: $!";

    if ($pid == 0) {
        close $reader;
        sleep rand 4;
        say $writer "\tkid $$ (job $job)";
        close $writer;
        exit; 
    }   
    close $writer;
    push @procs, $pid;
}       
say "Started processes @procs\n";

# Read from pipes when ready, print piped messages
while ( my @ready = $sel->can_read ) {
    foreach my $p (@ready) {
        my ($handle, $tag) = @$p;
        say "Reading from fileno ", $handle->fileno, ", tag: ", $tag;
        print while <$handle>;
        $sel->remove($p);      # *this* order: remove then close
        close $handle;
    }   
}   

# Reap
my $msg = "\nExited (with status): ";
my $kid = 0; # poll to reap
while (($kid = waitpid -1, WNOHANG) > -1) {
    $msg .= "$kid ($?) " if $kid > 0; 
    sleep 0.1;
}   
say $msg;

印刷

启动进程 15679 15680 15681

从文件号 5 读取，标签：job-2
        孩子 15680 (工作 2)
从文件号 4 读取，标签：job-1
        孩子 15679（工作 1）
从文件号 6 读取，标签：job-3
        孩子 15681（工作 3）

退出（有状态）：15680 (0) 15679 (0) 15681 (0)