Question

我还是驼鹿的新手，但它让我流口水！下面是我想要做的简化版本：生成可用于运行外部程序的对象相关输入文件。这些外部程序可以在计算上进行密集，并且我将为多个对象将输出处理回对象多次（作为一些外部参数调整的函数）。下面的模块有效（我认为），但可能有更好/更清洁的方法来做到这一点。这样做的正确方法是什么？由于所有这些对象都存在于他们自己的小世界中，似乎我应该能够并行运行这些对象以有效地控制对象的集合。对此有任何提示！??

{
package input_genrun;                                              
use Moose;                                                         
use IO::Pipe;                                                      
use FileHandle;                                                    

has 'name', is => 'ro', isa =>'Str';
has 'exe'      => (                 
                    is  => 'ro',    
                    isa => 'Str',   
                    default => '/usr/local/bin/bar',
                  );
has 'inp_fh'   => (
                    is => 'rw',
                    isa=> 'FileHandle',
                    default => sub {
                      my $handle = FileHandle->new;
                      return $handle;
                    }
                  );
has 'out_fh'   => (
                    is => 'rw',
                    isa=> 'IO::Pipe',
                    default => sub {
                      my $handle = IO::Pipe->new;
                      return $handle;
                    }
                  );

sub inp_wrt
{
  my ($self,$object) = @_;
  my $filename = $object->name() . ".inp";
  my $fh = FileHandle->new;
  $fh->open(">" . $filename);
  print $fh "foo \n";
  print $fh "bar \n";
  $fh->close;
}

sub run
{
  my ($self, $object) = @_;
  my $name = $object->name() . ".inp";
  my $exe = $self->exe;
  my $command = $self->exe . " $name";
  $self->out_fh()->reader($command);
  return($self->out_fh());
}

} 

my $l = input_genrun->new(name=> 'foo_l',exe=> 'wc');
my $m = input_genrun->new(name=> 'foo_m',exe=> 'cat');
my $n = input_genrun->new(name=> 'foo_n',exe=> 'tac');

$l->inp_wrt($l);
$m->inp_wrt($m);
$n->inp_wrt($n);

my $pipe_l = $l->run($l);
my $pipe_m = $m->run($m);
my $pipe_n = $n->run($n);

while (<$pipe_l>){
  print "from_l: $_";
}
while (<$pipe_m>){
  print "from_m: $_";
}
while (<$pipe_n>){
  print "from_n: $_";
}

Answer 1

我首先看一下MooseX::Workers摘要POE::Wheel::Run来解决同样的问题。如果不这样做，我会先看看其他一些异步作业处理程序（Parallel::Fork，Proc::Simple::Async，Gearman等），然后才能真正解决这个问题。< / p>

如果没有其他的东西，他们会让你对这个领域以前做过的事情有所了解。

如何用驼鹿正确打开管道？

1 个答案: