[B! anyevent] rightgo09ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

rightgo09 id:rightgo09

anyeventã«é–¢ã™ã‚‹rightgo09ã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (4)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

Perl ã§ WebSocket ã‚¯ãƒ©ã‚¤ã‚¢ãƒ³ãƒˆ(AnyEvent)&ã‚µãƒ¼ãƒ(psgi) - Practice of Programming
ã“ã‚“ãªã‚“ã§ã„ã„ã‹ãªãã€‚ãã®2ã€‚ forkã˜ã‚ƒã‚¢ãƒ¬ãªã‚“ã§ã€AnyEventã§æ›¸ã„ã¦ã¿ãŸ(https://gist.github.com/1000223)ã€‚ è¿½è¨˜: ä»¥ä¸‹ã€to_stringã§ã™ãŒã€Protocol-WebSocket-0.00906 ã§ã¯ã€Protocol::WebSocket::Handshake ã¯ to_bytes ã«å¤‰ã‚ã£ã¦ã„ã‚‹ã‚ˆã†ã§ã™ã€‚ #!/usr/bin/perl use utf8; use strict; use warnings; use AnyEvent; use Protocol::WebSocket::Frame; use Protocol::WebSocket::Handshake::Client; use IO::Socket; use constant {READ => 0, WRITE => 1}; $| = 1; run(); sub run
rightgo09 2011/06/03
perl

anyevent
ãƒªãƒ³ã‚¯
AnyEventã¯ã˜ã‚ã¾ã—ãŸ - Perlæ—¥èªŒ
ä½•æ•…ã‹POEã‚’ãƒªãƒ•ã‚¡ã‚¯ã‚¿ãƒªãƒ³ã‚°ã™ã‚‹æŒ‡ä»¤ã‚’å—ã‘ãŸã®ã§ãªã‚“ã¨ãªãAnyEventã‚’ç·´ç¿’ã—ã¦ã„ã¾ã™ã€‚ ã¨ã„ã†ã‚ã‘ã§å¾©ç¿’ã‚’å…¼ãã¦ã®è¨˜äº‹ã§ã™ã€‚ ã‚µãƒ³ãƒ—ãƒ«ã‚³ãƒ¼ãƒ‰ package Model::Person; use strict; use warnings; use Carp (); use Class::Accessor::Lite; Class::Accessor::Lite->mk_accessors(qw/name hp/); sub new { my $class = shift; my %args = @_ == 1 ? %{$_[0]} : @_; bless {%args}, $class; } sub beat { my ($self, $person) = @_; Carp::croak("This is NOT a Model::Person...") unless $perso
rightgo09 2010/11/15
perl

anyevent
ãƒªãƒ³ã‚¯
perl - AnyEventã§è¶…é€Ÿåˆ†æ•£ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ€ãƒ¼ : 404 Blog Not Found
2010å¹´08æœˆ12æ—¥09:45 ã‚«ãƒ†ã‚´ãƒªLightweight Languages perl - AnyEventã§è¶…é€Ÿåˆ†æ•£ãƒ€ã‚¦ãƒ³ãƒãƒ¼ãƒ€ãƒ¼ ã“ã‚Œè¦‹ã¦ãŸã‚‰ã¤ã„ãƒ ãƒ©ãƒ ãƒ©ã¨ã€‚ Perl éžåŒæœŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚° åˆå‡º2010.08.11; 08.12 è¿½è¨˜time perl mirrorget.pl cpan.yml http://www.cpan.org/src/perl-5.12.1.tar.bz2 # Stage 0: checking headers Elapsed: 0.358819961547852 sec. Last-Modified: Sun, 16 May 2010 22:40:16 GMT Content-Length: 12296076 URLs: http://ftp.ring.gr.jp/pub/lang/perl/CPAN/src/perl-5.12.1.tar.bz2
rightgo09 2010/09/18
perl

anyevent
ãƒªãƒ³ã‚¯
Perl éžåŒæœŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°
1. éžåŒæœŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚° with Perl 2010/08/07 Japan Perl Association ä»£è¡¨ç†äº‹ æ ªå¼ä¼šç¤¾ãƒ©ã‚¤ãƒ–ãƒ‰ã‚¢ ç‰§ å¤§ è¼” (@lestrrat) 3. æ™®é€šã®æ›¸ãæ–¹ use strict; use LWP::UserAgent; my @urls = qw( http://www.livedoor.com/ http://www.dena.jp/ http://mixi.jp/ http://www.gaiax.co.jp/ ); my $ua = LWP::UserAgent->new(); foreach my $url (@urls) { my $res = $ua->get( $url ); ... }
rightgo09 2010/08/10
perl

programming

anyevent

éžåŒæœŸ
ãƒªãƒ³ã‚¯
1