2010-10-13から1日間の記事一覧
16 :デフォルトの名無しさん:2010/10/11(月) 19:46:50 これがプロセス指向らしい・・・ sub neko { my $q = shift or die $!; return threads->new(sub { my $namae = ''; while (1) { my $message = $q->dequeue(); if ($$message{command} eq 'namae') {…
16 :デフォルトの名無しさん:2010/10/11(月) 19:46:50 これがプロセス指向らしい・・・ sub neko { my $q = shift or die $!; return threads->new(sub { my $namae = ''; while (1) { my $message = $q->dequeue(); if ($$message{command} eq 'namae') {…