0

首先，我是 Perl 和 Mojo 的新手，所以我会尽力做到这一点.. :D

问题是我需要并行工作，所以这个服务需要每秒处理几个调用。该服务将允许其他服务通过 REST 连接以下载和处理文件。我正在对这个想法进行一些测试，但没有成功。

我一直在围绕Mojo::IOLoop进行测试，但我认为我误解了一些概念，因为使用循环和计时器的每个实现都绝对错误......

实际上我的工作流程在这里：

(1) 获取 REST 调用

(2) 验证通过 mongodb 提供的 url

(3) 下载与该 mongo 对象关联的文件。

所以实际上这是可行的，但我看不出如何实现它以便并行工作......

#!/usr/bin/env_perl
use Mojolicious::Lite;
use MongoDB;

my $mongo     = MongoDB::MongoClient->new(host => 'xxxx.mongohq.com',port => 'xxxxx',     username => 'xxxxx', password => 'xxxxx', db_name => 'xxxxx');
my $database   = $mongo->get_database( 'xxxxx' );
my $collection = $database->get_collection( 'xxxxx' );

any [qw/ get post /] => '/:action/:objid' => sub {

  my $self = shift;

  #Parsing objectid...
  my $objectid  = $self->param('objid');
  my $id = MongoDB::OID->new(value => $objectid);

  my $all = $collection->find({_id => $id});
  my $dts = $all->next;

  download($dts->{parsedoc}->{url},"final_name.xml");

};

app->start;

sub download {
  say "Starting new download..";  
  my $ua = Mojo::UserAgent->new(max_redirects => 5);
  my $tx = $ua->get($_[0]);
  $tx->res->content->asset->move_to($_[1]);
  say "Download ends."; 
}

在这里实现 IOLoop 的最佳方法是什么？我一直在使用一些 mojo 计时器示例，但也许我需要重新排序我的应用程序流程？提前致谢。

4

1 回答 1

2

正如我在评论中提到的，Mojo::IOLoop 与并行性无关，而是与事件循环有关。这意味着可能需要很长时间的操作可能会启动，然后仅在完成后继续执行，而不会阻塞其他进程。在您的示例中，对 Mongo 的调用和下载都是这些类型的长时间运行的进程，可能希望将其放入事件循环中。Mojolicious::UserAgent 与回调一起使用时是非阻塞的（操作完成后调用的操作）。要对 Mongo 做同样的事情，您需要确保您的 Mongo 库可以以非阻塞方式使用。

我已经模拟了一个忽略 Mongo 部分（为读者练习）并以非阻塞方式使用 UserAgent 的小示例。

#!/usr/bin/env perl
use Mojolicious::Lite;

helper download => sub {
  my ($c, $url, $target) = @_;
  my $ua = $c->app->ua->max_redirects(5);

  say "Starting new download ($url) ..."; 
  $ua->get( $url, sub {
    my ($ua, $tx) = @_;
    say "Finished download ($url) ...";
    $tx->res->content->asset->move_to($target);

    say "File saved ($url --> $target)";
    $c->render( text => "File saved ($url --> $target)" );
  });
};

any [qw/ get post /] => '/:action/:objid' => sub {
  my $self = shift;
  $self->render_later; # prevent auto-render

  #Parsing objectid
  my $objectid  = $self->param('objid');
  #verify url here ...

  # example url
  my $url = 'http://www.google.com';

  $self->download($url,"final_name.xml");
};

app->start;
于 2013-07-02T01:43:19.530 回答