Разрешено ли одновременное использование нескольких поставщиков Perl POE? - PullRequest
Новая
       0

Разрешено ли одновременное использование нескольких поставщиков Perl POE?

1 голос
/ 09 сентября 2011

Я использую POE для построения системы, которая соединяет несколько протоколов (HTTP, IRC, XMPP), и я хотел бы использовать POE для запуска одного цикла обработки событий, который обрабатывает эти протоколы. Могу ли я сделать это безопасно, и если да, то как?

1 Ответ

4 голосов
/ 09 сентября 2011

Да, вы можете. Прочитайте эту статью , она вам очень поможет. Также вот пример кода IRC и HTTP, работающих вместе: Просто запомните, вам нужно все настроить перед запуском mainloop: POE::Kernel->run()

#!/usr/bin/env perl
use warnings;
use strict;
use POE;

# Simple HTTP server

use POE::Component::Server::HTTP;

POE::Component::Server::HTTP->new(
  Port           => 32090,
  ContentHandler => {
    '/'      => \&http_handler
  }
);

sub http_handler {
    my ($request, $response) = @_;
    $response->code(RC_OK);
    $response->content("<html><body>Hello World</body></html>");
    return RC_OK;
}

# Dummy IRC bot on #bottest at irc.perl.org

use POE::Component::IRC;

my ($irc) = POE::Component::IRC->spawn();

POE::Session->create(
  inline_states => {
    _start     => \&bot_start,
    irc_001    => \&on_connect,
  },
);

sub bot_start {
  $irc->yield(register => "all");
  my $nick = 'poetest' . $$ % 1000;
  $irc->yield(
    connect => {
      Nick     => $nick,
      Username => 'cookbot',
      Ircname  => 'POE::Component::IRC cookbook bot',
      Server   => 'irc.perl.org',
      Port     => '6667',
    }
  );
}

sub on_connect { $irc->yield(join => '#bottest'); }


# Run main loop

POE::Kernel->run();

И вы можете транслировать события между вашими заданиями.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...