Perl 语言编程 - Linux教程

请 注 意 , 队 列 和 普 通 管 道 非 常 相 似 , 只 不 过 不 是 发 送 字 节 而 是 传 递 整 个 标 量 , 包 括 引 用 和 赐福 过 的 对 象 而 已 !下 面 是 一 个 从 perlthrtut 手 册 页 来 的 一 个 例 子 :use Thread qw/async/;use Thread::Queue;my $Q = Thread::Queue->new();async {while (defined($datum = $Q->dequeue)) {print "Pulled $datum from queue\n";}};$Q->enqueue(12);$Q->enqueue("A", "B", "C");$Q->enqueue($thr);sleep 3;$Q->enqueue(\%ENV);$Q->enqueue(undef);下 面 是 你 获 得 的 输 出 :Pulled 12 from queuePulled A from queuePulled B from queuePulled C from queue470