小编har*_*gnj的帖子

我有一些看起来像这样的perl代码:

my @array = map { rand } ( 1..100 );
my @matching = grep { $_ == $condition } @array;
@array = grep { $_ != $condition } @array;

这样做没问题,但我想做的是根据单个操作将原始数组拆分为两个...我认为我执行的操作数量是严格必要的两倍.

帮助赞赏!! 谢谢.

re:http: //www.perlmonks.org/？node_id = 786942

什么时候:

$manager->start and next;

&dowork();

父级返回true($pid),并转到周围循环的下一次迭代.孩子返回0,并完成工作.

如果我理解正确,如果我们达到最大子女的数量,$manager->start将返回0,父母将完成工作？如果是这样,阻止父母做任何工作的最佳方法是什么？

我在 docker 中安装某些 perl 模块时遇到问题。对于默认的 ubuntu 映像，有推荐的稳定方法吗？

另外，我不知道如何在失败的构建中访问安装日志文件（即 /.cpanm/build.log 处的 cpan minus）。

以下 Dockerfile 失败并显示以下消息：

请指定 locale.xs 的原型设计行为（请参阅 perlxs 手册）

当它尝试解决对 PerlIO::locale 的依赖性时。

# use the ubuntu base image provided by dotCloud
FROM ubuntu

# make sure the package repository is up to date
RUN echo "deb http://archive.ubuntu.com/ubuntu precise main universe" > /etc/apt/sources.list
RUN apt-get update

# install perl and modules
RUN apt-get install -y make
RUN apt-get install -y perl
RUN apt-get install -y cpanminus

RUN cpanm -v Text::Names