ViewVC Help
View File
|
Revision Log
|
Show Annotations
|
Download File
/
cvs
/
Coro
/
eg
/
cont
Revision:
1.1
Committed:
Sat Jul 14 22:14:21 2001 UTC
(22 years, 11 months ago) by
root
Branch:
MAIN
Log Message:
*** empty log message ***
File Contents
#
User
Rev
Content
1
root
1.1
#!/usr/bin/perl
2
3
use Coro::Cont;
4
5
my $cont = cont {
6
result $_*2;
7
result $_*3;
8
};
9
10
my %hash = (1,1,2,2,3,3);
11
12
%hash = map &$cont, %hash;
13
14
print join(",", %hash), "\n";
15