ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
Coro
/
eg
/
event
Revision:
1.1
Committed:
Sun Jul 15 02:36:54 2001 UTC
(22 years, 11 months ago) by
root
Branch:
MAIN
Log Message:
*** empty log message ***
File Contents
#
Content
1
#!/usr/bin/perl
2
3
use Coro;
4
use Coro::Event;
5
6
sub keyboard : Coro {
7
my $w = Coro::Event->io(fd => *STDIN, poll => 'r');
8
while() {
9
print "cmd> ";
10
my $ev = $w->next; my $cmd = <STDIN>;
11
print "data> ";
12
my $ev = $w->next; my $data = <STDIN>;
13
}
14
}
15