Question

我需要编写一个应该有一个TCP套接字和一个命名管道的守护进程。通常，如果我需要使用“纯”套接字实现多IO服务器，则基于选择的多IO模型始终是我将选择的模型。所以你们中的任何人都曾经在select或你们中使用过命名管道可以告诉我这是不可能的。提前谢谢。

Answer 1

总之，是的：

#!/usr/bin/perl

use strict;
use warnings;

use POSIX qw/mkfifo/;
use IO::Select;
use IO::Handle;

my $filename = "/tmp/pipe.$$";

mkfifo $filename, 0700
    or die "could not create pipe $filename: $!";

die "could not fork\n" unless defined(my $pid = fork);
unless ($pid) {
    open my $fh, ">", $filename
        or die "could not open $filename\n";

    my $i = 1;
    for (1 .. 10) {
        sleep 1;
        print $fh $i++, "\n";
        $fh->flush;
    }
    exit;
}

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

open my $fh, "<", "$filename"
    or die "could not open $filename\n";

$s->add($fh);

OUTER: while (1) {
    print localtime() . "\n";
    my @files = $s->can_read(.25);
    if (@files) {
        for my $fh (@files) {
                    my $line = <$fh>;
            print "from pipe: $line";
            last OUTER if $line == 10;
        }
    }
}

是否可以将命名管道与select in perl混合使用？

1 个答案: