タグ

perlに関するhate-urumaのブックマーク (23)

  • Perl&CGI最強講座 [smart]


    index1STR2SUBSTR 3 POSITION3POSITION 0   0$[SURSTR -1  index使 $str = "How you always hurt the one you love."; print index($str,'you'); >4
    Perl&CGI最強講座 [smart]
  • IO::Pollでcometなチャットサーバを書いてみた - 遥かな時代の階段を

    perl側 #!/usr/bin/perl use strict; use warnings; use IO::Socket; use IO::Poll qw( POLLIN POLLOUT POLLHUP POLLERR ); use Data::Dumper; use HTTP::Request; use CGI; my $_timeout = 15; $SIG{ALRM} = \&timeout; alarm($_timeout); my $port = shift || 3000; my $server = IO::Socket::INET->new( LocalPort => $port, Listen => 10, Reuse => 1, ) or die $@; my $poll = IO::Poll->new(); $poll->mask( $server => POLLI

    IO::Pollでcometなチャットサーバを書いてみた - 遥かな時代の階段を
  • POE おぼえがき - daily dayflower


    TIMTOWTDI  POE Cookbook  POE::Kernel  POE  POE::Kernel->run()*1   POE::Kernel->run()  POE::Session  POE ///   _start   _end  inline_statespackage_stateso
    POE おぼえがき - daily dayflower