- Tatsuhiro Ujihisa
- http://ujihisa.blogspot.com/
- 非同期とは?
- スレッド、プロセス
- プロセス生成
| perl -e '""!~("(?{".("{^(?)!(?^{^^!){.^^~~?}{!~}^}^.(!~}!..^^!~}!~~.~^}"^"^}((~))~~^{.{^~?}^!^}(~{^)?()^)^!).^}!()){.^)(}.("^"!~!{}(!(!~((}}!})!^^{^){(.?}{}!~{^~!)^?..(~)!~.?."^"{{?}^(~)~^!..~)??){^.~){.~(!{.)}}^.}^~}?}.^}(^?{~"^".)^!?^(.)!~!)~{^{(}){?!^.~)({?)(^.^!.^{((^!!^(^(!"^"!})^?}^(?^(~{.)(}})!.?^~!!{~))}({^^!..)^^~?{.?)..")."})")' |
| # Author: Pieter Noordhuis | |
| # Description: Simple demo to showcase Redis PubSub with EventMachine | |
| # | |
| # Update 7 Oct 2010: | |
| # - This example does *not* appear to work with Chrome >=6.0. Apparently, | |
| # the WebSocket protocol implementation in the cramp gem does not work | |
| # well with Chrome's (newer) WebSocket implementation. | |
| # | |
| # Requirements: | |
| # - rubygems: eventmachine, thin, cramp, sinatra, yajl-ruby |
| code { | |
| font-family: "Bitstream Vera Sans Mono", | |
| "Courier New"; | |
| } | |
| pre { | |
| margin-left: 1em; | |
| font-family: "Bitstream Vera Sans Mono", | |
| "Courier New"; | |
| white-space: pre; | |
| } |
| ````sii``s`k`s`k`si``s`k`s`kk``s`k``ss`kk``s`k``s`kks``s`k`s``s``s``si`k``si`k`k | |
| i`k`````s``si``s``sss``ss`ki```ss``ssi``ss`ki``s`ksk``s`k`s``si`kik``s``si`k``s` | |
| `s`ksk``s``s`k``s`ksk``s`ksk`k``s`ksk`k``````s``s`ks`ssi``ss`ki``s`ksk``s`k`s``s | |
| i`kik``s``si`k`k``si`ki`k``s``si`ki`k``s``si`k`k``si`kk`k`````ss``s``sss``ss`ki` | |
| `s`ksk``s`k`s``si`kik``s``si`k`k``si`ks`k```si```sii``s`k`si``sii``s`k`s``si`kik | |
| `kk``s`kk``siii |
| import socket | |
| ss = socket.socket( | |
| socket.AF_INET, socket.SOCK_STREAM) | |
| ss.bind(('localhost', 8080)) | |
| ss.listen(5) | |
| conn, addr = ss.accept() | |
| #conn.send("Hello World") | |
| print conn.recv(4096) | |
| conn.shutdown(socket.SHUT_RDWT) |
| #-*- coding:utf-8 -*- | |
| u''' | |
| 関数合成みたいな何か | |
| ''' | |
| class Composable(object): | |
| u''' | |
| 合成可能 | |
| ''' |
| (setq max-lisp-eval-depth 100000) | |
| (setq max-specpdl-size 100000) | |
| (setq debug-on-error t) | |
| (defun compile (x next) | |
| (cond | |
| ((symbolp x) (list 'refer x next)) ;;variables | |
| ((listp x) | |
| (let ((code (car x)) (arg (cdr x))) |