| 1 | #!/usr/bin/perl |
1 | #!/usr/bin/perl |
| 2 | |
2 | |
| 3 | # this crap is an asynchroneous finger client. it's rather idiotic ;) |
3 | # this crap is an asynchronous finger client. it's rather idiotic ;) |
| 4 | |
4 | |
| 5 | use Coro; |
5 | use Coro; |
| 6 | use Coro::Event; |
6 | use Coro::Event; |
| 7 | use Coro::Socket; |
7 | use Coro::Socket; |
| 8 | |
8 | |
| … | |
… | |
| 50 | $w->next; |
50 | $w->next; |
| 51 | print "\e7\e[C\e[C\e[C\e[C\e[C\e[C\e[C\e[C <time ",time,"> \e8"; |
51 | print "\e7\e[C\e[C\e[C\e[C\e[C\e[C\e[C\e[C <time ",time,"> \e8"; |
| 52 | }; |
52 | }; |
| 53 | } |
53 | } |
| 54 | |
54 | |
|
|
55 | cede; # make sure the watchers are installed |
| 55 | print "unlooped with value: ",loop(),"\n"; |
56 | print "unlooped with value: ",loop(),"\n"; |
| 56 | |
57 | |
