Event-driven programming with Perl

Slide 1

Slide 1 text

ࣄ݅᱓ಈఔࣜઃܭ With Perl Kang-min Liu / [email protected] 12年4月14日星期六

Slide 2

Slide 2 text

In computer programming, event- driven programming or event-based programming is a programming paradigm in which the ﬂow of the program is determined by events—e.g., sensor outputs or user actions (mouse clicks, key presses) or messages from other programs or threads. ref: wikipedia 12年4月14日星期六

Slide 3

Slide 3 text

Slide 4

Slide 4 text

main() 12年4月14日星期六

Slide 5

Slide 5 text

onclick() ondoubleclick() onmouseover() oncontextmenu() onselect() onload() 12年4月14日星期六

Slide 6

Slide 6 text

onclick() ondoubleclick() onmouseover() oncontextmenu() onselect() onload() main() 12年4月14日星期六

Slide 7

Slide 7 text

onclick() ondoubleclick() onmouseover() oncontextmenu() onselect() onload() main() “click” 1.ఁଌ 2.೿ૹ ↺ 12年4月14日星期六

Slide 8

Slide 8 text

onclick() ondoubleclick() onmouseover() oncontextmenu() onselect() onload() main() Event Loop ↺ 12年4月14日星期六

Slide 9

Slide 9 text

onclick() ondoubleclick() onmouseover() oncontextmenu() onselect() onload() main() Event Handlers ↺ 12年4月14日星期六

Slide 10

Slide 10 text

Even-driven ~ Asynchronous 12年4月14日星期六

Slide 11

Slide 11 text

Even-driven ~ Asynchronous do_this(sub { then_do_that(); }); 12年4月14日星期六

Slide 12

Slide 12 text

Event Loop In Perl https://metacpan.org/search?q=event+loop 403 results 12年4月14日星期六

Slide 13

Slide 13 text

Event Loop In Perl • Event • Event::Lib(libevent) • IO::Async • EV (libev) • Glib • Gtk • Tk • Prima • Net::IRC • Mojo::IOLoop • POE 12年4月14日星期六

Slide 14

Slide 14 text

use Event::Lib; use POSIX qw/SIGINT/; $|=1; # autoflush STDOUT sub timer { my $event = shift; print localtime . "\r"; $event->add(1); } sub signal { my $event = shift; print "BYE BYE\n"; exit; } my $timer = timer_new(\&timer); my $signal = signal_new(SIGINT, \&signal); $timer->add(1); # triggered every second $signal->add; event_mainloop; 12年4月14日星期六

Slide 15

Slide 15 text

Slide 16

Slide 16 text

Slide 17

Slide 17 text

Slide 18

Slide 18 text

Slide 19

Slide 19 text

Slide 20

Slide 20 text

use POE; $|=1; sub handler_tick { print localtime . "\r"; $_[KERNEL]->alarm( 'tick' => time() + 1 ); } sub handler_start { $_[KERNEL]->sig('INT', 'handle_sigint'); $_[KERNEL]->alarm( 'tick', time() + 1 ); } sub handler_stop { print "\nBYE BYE\n"; } sub handle_sigint { $_[KERNEL]->stop; } POE::Session->create( inline_states => { _start => \&handler_start, _stop => \&handler_stop, tick => \&handler_tick, } ); POE::Kernel->run(); 12年4月14日星期六

Slide 21

Slide 21 text

Slide 22

Slide 22 text

Slide 23

Slide 23 text

Slide 24

Slide 24 text

Slide 25

Slide 25 text

AnyEvent 12年4月14日星期六

Slide 26

Slide 26 text

AnyEvent • Marc Lehmann @schmorp • http://home.schmorp.de • libev / rxvt-unicode / deliantra / JSON::XS 12年4月14日星期六

Slide 27

Slide 27 text

AnyEvent • Library for Event-based or asynchronous programming • ݱ༗ Event loop తந৅૚ 12年4月14日星期六

Slide 28

Slide 28 text

AnyEvent Event • AnyEvent ຊ਎ᔒ༗ Event model • ࢖༻ऀجຊ্୞႔ཧඇಉ㑊ᬓा • AnyEvent ࠶ሡඇಉ㑊ᬓ์ਐݱ੒ event loop ڈࣥߦ 12年4月14日星期六

Slide 29

Slide 29 text

AnyEvent Watcher • io • timer • signal • child • idle • condvar 12年4月14日星期六

Slide 30

Slide 30 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); 12年4月14日星期六

Slide 31

Slide 31 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); Watcher 12年4月14日星期六

Slide 32

Slide 32 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); Watcher setInterval 12年4月14日星期六

Slide 33

Slide 33 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); ... undef $t; 12年4月14日星期六

Slide 34

Slide 34 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); ... undef $t; ෆཁ࠶㑌ඵҹ࣌ؒྃ 12年4月14日星期六

Slide 35

Slide 35 text

my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { say localtime; } ); ... undef $t; ෆཁ࠶㑌ඵҹ࣌ؒྃ clearInterval 12年4月14日星期六

Slide 36

Slide 36 text

my $w = AnyEvent->signal( signal => "TERM", cb => sub { ... } ); 12年4月14日星期六

Slide 37

Slide 37 text

$SIG{TERM} = sub { ... }; 12年4月14日星期六

Slide 38

Slide 38 text

$SIG{TERM} = sub { do_this; }; $SIG{TERM} = sub { do_that; }; 12年4月14日星期六

Slide 39

Slide 39 text

$SIG{TERM} = sub { do_this; }; $SIG{TERM} = sub { do_that; }; ☹ 12年4月14日星期六

Slide 40

Slide 40 text

my $w = AnyEvent->signal( signal => "TERM", cb => sub { do_this } ); my $q = AnyEvent->signal( signal => "TERM", cb => sub { do_that } ); 12年4月14日星期六

Slide 41

Slide 41 text

my $w = AnyEvent->signal( signal => "TERM", cb => sub { do_this } ); my $q = AnyEvent->signal( signal => "TERM", cb => sub { do_that } ); OK! 12年4月14日星期六

Slide 42

Slide 42 text

my $w = AnyEvent->io( fh => $fh, poll => "r", cb => sub { ... } ); 12年4月14日星期六

Slide 43

Slide 43 text

my $pid = fork; my $child_watcher; if ($pid) { $child_watcher = AnyEvent->child ( pid => $pid, cb => sub { my ($pid, $status) = @_; ... } ); } else { # child code } 12年4月14日星期六

Slide 44

Slide 44 text

my $w = AnyEvent->idle( cb => sub { ... } ); 12年4月14日星期六

Slide 45

Slide 45 text

use AnyEvent; $|=1; my $should_exit = AnyEvent->condvar; my $t = AnyEvent->timer( after => 0, interval => 1, cb => sub { print localtime."\r"; } ); my $s = AnyEvent->signal( signal => "INT", cb => sub { print "\na\BYE BYE\n"; $should_exit->send; } ); $should_exit->recv; 12年4月14日星期六

Slide 46

Slide 46 text

Slide 47

Slide 47 text

Slide 48

Slide 48 text

Slide 49

Slide 49 text

Slide 50

Slide 50 text

AnyEvent Condvar • Condition Variable • ୅දʮ๭๭ᑍ݅੒ཱʯతᏓᏐ • mini event loop • Data warm hole 12年4月14日星期六

Slide 51

Slide 51 text

AnyEvent Condvar ୊໨ɿఏࣔ࢖༻ऀ༌ೖ໊ࣈɼવޙҹग़ ိɻ 12年4月14日星期六

Slide 52

Slide 52 text

AnyEvent Condvar $|=1; print "Enter your name> "; my $name = ; print "Hello, $name\n"; 12年4月14日星期六

Slide 53

Slide 53 text

AnyEvent Condvar $|=1; print "Enter your name> "; my $name = ; print "Hello, $name\n"; IO block 12年4月14日星期六

Slide 54

Slide 54 text

use AnyEvent; $|=1; my $name_ready = AE::cv; my $angel = AE::io \*STDIN, 0, sub { my $x = ; $name_ready->send($x); }; print "Enter your name> "; my $name = $name_ready->recv; print "\nHello, $name\n"; 12年4月14日星期六

Slide 55

Slide 55 text

Slide 56

Slide 56 text

Slide 57

Slide 57 text

AnyEvent Condvar ୊໨ɿ ఏࣔ࢖༻ऀ༌ೖ໊ࣈɼવޙҹग़ိɻ ೗ՌҰ௚ᔒ༗༌ೖɼ㑌ޒඵ৊ҹ㘤ଉ࠵Ұ Լɻ 12年4月14日星期六

Slide 58

Slide 58 text

use AnyEvent; $|=1; my $name_ready = AE::cv; my $angel = AE::io \*STDIN, 0, sub { my $x = ; $name_ready->send($x); }; my $daemon = AE::timer 5, 5, sub { print "\n\nHurry up!!\nEnter your name> "; }; print "Enter your name> "; my $name = $name_ready->recv; print "\nHello, $name\n"; block 12年4月14日星期六

Slide 59

Slide 59 text

use AnyEvent; $|=1; my $exit = AE::cv { print "gg\n" }; my $name_ready = AE::cv { my ($cv) = @_; print "\nHello, " . $cv->recv; $exit->send; }; my $angel = AE::io \*STDIN, 0, sub { my $x = ; $name_ready->send($x); }; my $daemon = AE::timer 5, 5, sub { print "\n\nHurry up!!\nEnter your name> "; }; print "Enter your name> "; $exit->recv; 12年4月14日星期六

Slide 60

Slide 60 text

Slide 61

Slide 61 text

Slide 62

Slide 62 text

AnyEvent Convdar ໛ٖ State Machine / Workﬂow Start Working End 12年4月14日星期六

Slide 63

Slide 63 text

use v5.14; use AnyEvent; my ($start, $working, $end); $start = AE::cv { say "START"; $working->send; }; $working = AE::cv { say "WORKING for 5s"; my $w; $w = AE::timer 5, 0, sub { say "DONE working."; $end->send; undef $w; } }; $end = AE::cv { say "END"; }; $start->send; $end->recv; 12年4月14日星期六

Slide 64

Slide 64 text

Slide 65

Slide 65 text

Slide 66

Slide 66 text

Slide 67

Slide 67 text

Slide 68

Slide 68 text

anyEvent::CondVar • $cv ~ mini event loop • $cv->send → $cv->recv • $cv->send → $cv callback • $cv->begin, $cv->end 12年4月14日星期六

Slide 69

Slide 69 text

AnyEvent::* 12年4月14日星期六

Slide 70

Slide 70 text

AnyEvent::HTTP http_get "http://gugod.org", sub { my ($data, $headers) = @_; ... }; ... 12年4月14日星期六

Slide 71

Slide 71 text

AnyEvent::HTTP sub parallel_get { my @urls = @_; my $all_done = AE::cv; for my $url (@urls) { $all_done->begin; my $t = time; http_get $url, sub { my ($data, $headers) = @_; ... $all_done->end; }; } $all_done->recv; ... } 12年4月14日星期六

Slide 72

Slide 72 text

AnyEvent::DBI use AnyEvent::DBI; my $cv = AnyEvent->condvar; my $dbh = new AnyEvent::DBI "DBI:SQLite:dbname=test.db", "", ""; $dbh->exec("select * from orders where owner=?", "gugod", sub { my ($dbh, $rows, $rv) = @_; $#_ or die "failure: $@"; print "@$_\n" for @$rows; $cv->send; }); # asynchronously do sth. else here $cv->recv; 12年4月14日星期六

Slide 73

Slide 73 text

AnyEvent::Socket tcp_connect "gameserver.deliantra.net", 13327, sub { my ($fh) = @_ or die "gameserver.deliantra.net connect failed: $!"; # enjoy your filehandle ... }; 12年4月14日星期六

Slide 74

Slide 74 text

AnyEvent::Socket tcp_server undef, 8888, sub { my ($fh, $host, $port) = @_; syswrite $fh, "The internet is full, $host: $port. Go away!\015\012"; }; 12年4月14日星期六

Slide 75

Slide 75 text

AnyEvent::IRC my $c = AnyEvent->condvar; my $con = new AnyEvent::IRC::Connection; $con->connect ("irc.server.net", 6667); $con->reg_cb ( 'connect' => sub { my ($con) = @_; $con->send_msg (NICK => 'testbot'); $con->send_msg (USER => 'testbot', '*', '0', 'testbot'); }, 'irc_001' => sub { my ($con) = @_; print "$_[1]->{prefix} says I'm in the IRC: $_[1]->{params}->[-1]!\n"; $c->broadcast; } ); $c->wait; 12年4月14日星期六

Slide 76

Slide 76 text

AnyEvent::XMPP • ޭೳ׬੔త XMPP (Jabber) ௨㘤໛૊ • ࢧԉଟॏாᥒ 12年4月14日星期六

Slide 77

Slide 77 text

my $cl = AnyEvent::XMPP::Client->new(); $cl->set_accounts({ '[email protected]' => [ 'PASSWORD', 'talk.google.com', 5223, { domain => 'gmail.com', old_style_ssl => 1 } ], '[email protected]' => [ 'PASSWORD', 'talk.google.com', 5223, { domain => 'gmail.com', old_style_ssl => 1 } ] }); $cl->reg_cb( message => sub { my ($client, $account, $message) = @_; $client->send_message("Nihao", $message->from, $account->jid); }, contact_request_subscribe => sub { my ($client, $account, $roster, $contact, $message) = @_; $contact->send_subscribed; }, disconnect => sub { my $client = shift; $client->update_connections; } ); $cl->start; 12年4月14日星期六

Slide 78

Slide 78 text

AnyEvent::MP • Or “AEMP” • ଟߦఔؒ㘤ଉၚᬇ (Message Passing) • IPC, ୠՄލओػ • 㘤ଉ༗Ճີʢshared secretʣ • Erlang ෩ 12年4月14日星期六

Slide 79

Slide 79 text

Seeder Sender Receiver 12年4月14日星期六

Slide 80

Slide 80 text

Seeder Sender Receiver ొه ొه 12年4月14日星期六

Slide 81

Slide 81 text

Seeder Sender Receiver ੥໰๭๭๭ ి࿩زᥒʁ 12年4月14日星期六

Slide 82

Slide 82 text

Seeder Sender Receiver ੥໰๭๭๭ ి࿩زᥒʁ 39Keh7acE 12年4月14日星期六

Slide 83

Slide 83 text

Seeder Sender Receiver “OHAI” 12年4月14日星期六

Slide 84

Slide 84 text

Seeder Sender Receiver Receiver Receiver Receiver 12年4月14日星期六

Slide 85

Slide 85 text

Seeder Sender Receiver ੥໰๭๭๭ ి࿩زᥒʁ Receiver Receiver Receiver 12年4月14日星期六

Slide 86

Slide 86 text

Seeder Sender Receiver ੥໰๭๭๭ ి࿩زᥒʁ 42each88cE, u93keute7, u9ehknoh, e77e8u78e Receiver Receiver Receiver 12年4月14日星期六

Slide 87

Slide 87 text

Seeder Sender Receiver Receiver Receiver Receiver “OHAI” 12年4月14日星期六

Slide 88

Slide 88 text

use AnyEvent; use AnyEvent::MP; use AnyEvent::MP::Global; configure nodeid => "eg_receiver", binds => ["*:4040"]; my $port = port; grp_reg eg_receivers => $port; rcv $port, test => sub { my ($data, $reply_port) = @_; print "Received data: " . $data . "\n"; }; AnyEvent->condvar->recv; aemp receiver 12年4月14日星期六

Slide 89

Slide 89 text

aemp sender use AnyEvent; use AnyEvent::MP; use AnyEvent::MP::Global; configure nodeid => "eg_sender", seeds => ["*:4040"]; my $find_timer = AnyEvent->timer (after => 0, interval => 1, cb => sub { my $ports = grp_get "eg_receivers" or return; snd $_, test => time for @$ports; }); AnyEvent->condvar->recv; 12年4月14日星期六

Slide 90

Slide 90 text

AnyEvent::Worker my $worker = AnyEvent::Worker->new( sub { my @args = @_; ... } ); $worker->do("foo", "bar"); 12年4月14日星期六

Slide 91

Slide 91 text

AnyEvent::Worker # fork 4 worker processes # put them in to a round-robin queue my $workers = Data::RoundRobin->new( map { AnyEvent::Worker->new(sub { ... }) } 1..4 ); $workers->next->do("foo", "bar"); # worker 1 $workers->next->do("this", "that"); # worker 2 $workers->next->do("ok", "go"); # workes 3 ... 12年4月14日星期六

Slide 92

Slide 92 text

• German • Redis/Hiredis • BitTorrent • CouchDB • Cron • TermKey • DNS • JSONRPC • Monitor • MSN • RabbitMQ • SMTP • Twitter • ZeroMQ • Memcached • Twiggy AnyEvent::* 12年4月14日星期六

Slide 93

Slide 93 text

More or Less • AnyEvent ੋᙛԼओྲྀ • AnyEvent::Intro • condvar = Fascinating • AnyEvent::* ༗ڐଟሞ • github.com/CPAN-API/metacpan-web 12年4月14日星期六