ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
Coro
/
eg
/
cont
Revision:
1.3
Committed:
Thu Jul 19 04:13:22 2001 UTC
(22 years, 10 months ago) by
root
Branch:
MAIN
Changes since
1.2
:
+4 -4 lines
Log Message:
*** empty log message ***
File Contents
#
Content
1
#!/usr/bin/perl
2
3
use Coro;
4
use Coro::Cont;
5
6
sub mul23 : Cont {
7
result 2*shift;
8
result 3*shift;
9
}
10
11
my %hash = (1,10,2,20,3,30);
12
13
%hash = map mul23($_), %hash;
14
15
print join(",", %hash), "\n";
16