是否允許同時使用多個Perl POE提供程序？

我正在使用POE來構建橋接多個協議（HTTP，IRC，XMPP）的系統，並且我想使用POE來驅動處理這些協議的單個事件循環。我能否安全地做到這一點？如果是這樣，怎麼辦？是否允許同時使用多個Perl POE提供程序？

2011-09-09 Jashank

是的，你可以。閱讀this article，它應該幫助你很多。而且，這裏的的IRC和HTTP一起運行的代碼示例：記住，你需要設置你的一切運行主循環之前：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();

並且您可以在任務之間broadcast events。

來源

2011-09-09 12:59:54 yko

完美，謝謝！ – Jashank

是否允許同時使用多個Perl POE提供程序？

回答

相關問題