IO :: Лямбда в Perl - PullRequest
Новая
       8

IO :: Лямбда в Perl

4 голосов
/ 07 декабря 2010

Я перегрузил некоторые задачи по обслуживанию нескольких скриптов Perl. Одним из требований является одновременная загрузка нескольких десятков файлов (HTTP). Я искал на CPAN самое простое решение и нашел этот модуль с именем IO :: Lambda :: HTTP .

К сожалению, у меня нет абсолютно никакого опыта в функциональном программировании (и опыте Perl начального уровня), поэтому, хотя я вижу, что все примеры работают так, как задокументировано, я не могу изменить ни один из них в соответствии со своими потребностями. 1005 *

Например, пример, поставляемый с модулем: 

#!/usr/bin/perl
# $Id: parallel.pl,v 1.7 2008/05/06 20:41:33 dk Exp $
# 
# This example fetches two pages in parallel, one with http/1.0 another with
# http/1.1 . The idea is to demonstrate three different ways of doing so, by
# using object API, and explicit and implicit loop unrolling
#

use lib qw(./lib);
use HTTP::Request;
use IO::Lambda qw(:lambda);
use IO::Lambda::HTTP qw(http_request);
use LWP::ConnCache;

my $a = HTTP::Request-> new(
  GET => "http://www.perl.com/",
);
$a-> protocol('HTTP/1.1');
$a-> headers-> header( Host => $a-> uri-> host);

my @chain = ( 
  $a, 
  HTTP::Request-> new(GET => "http://www.perl.com/"),
);

sub report
{
  my ( $result) = @_;
  if ( ref($result) and ref($result) eq 'HTTP::Response') {
    print "good:", length($result-> content), "\n";
  } else {
    print "bad:$result\n";
  }
#   print $result-> content;
}

my $style;
#$style = 'object';
#$style = 'explicit';
$style = 'implicit';

# $IO::Lambda::DEBUG++; # uncomment this to see that it indeed goes parallel

if ( $style eq 'object') {
  ## object API, all references and bindings are explicit
  sub handle {
    shift;
    report(@_);
  }
  my $master = IO::Lambda-> new;
  for ( @chain) {
    my $lambda = IO::Lambda::HTTP-> new( $_ );
    $master-> watch_lambda( $lambda, \&handle);
  }
  run IO::Lambda;
} elsif ( $style eq 'explicit') {
  #
  # Functional API, based on context() calls. context is
  # $obj and whatever arguments the current call needs, a RPN of sorts.
  # The context though is not stack in this analogy, because it stays
  # as is in the callback
  #
  # Explicit loop unrolling - we know that we have exactly 2 steps
  # It's not practical in this case, but it is when a (network) protocol
  # relies on precise series of reads and writes
  this lambda {
    context $chain[0];
    http_request \&report;
    context $chain[1];
    http_request \&report;
  };
  this-> wait;
} else {
  # implicit loop - we don't know how many states we need
  # 
  # also, use 'tail'
  this lambda {
    context map { IO::Lambda::HTTP-> new( $_, async_dns => 1 ) } @chain;
    tails { report $_ for @_ };
  };
  this-> wait;
}

Работает так, как рекламируется, но я не могу понять, как изменить примеры «объекта» или «неявного», ограничив их N параллельными экземплярами, как, например, из краткого обзора IO :: Lambda: 

# http://search.cpan.org/~karasik/IO-Lambda/lib/IO/Lambda.pm
# crawl for all urls in parallel, but keep 10 parallel connections max
print par(10)-> wait(map { http($_) } @hosts);

Может ли кто-нибудь показать мне пример того, как будет выглядеть лямбда-код, учитывая указанное выше ограничение (например, ограничение на N экземпляров)?

Кроме того, каков наилучший способ начать изучение функционального программирования? Мне это кажется совершенно чуждым.

1 Ответ

1 голос
/ 07 декабря 2010

Для этой задачи есть и другие варианты, кроме IO :: Lambda, например, AnyEvent :: HTTP . См. этот предыдущий вопрос SO .

Несмотря на то, что я знаком с функциональным программированием, приведенный выше пример кода IO :: Lambda выглядит довольно сложным для понимания.

...