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 *** |
# | User | Rev | Content |
---|---|---|---|
1 | root | 1.1 | #!/usr/bin/perl |
2 | |||
3 | root | 1.2 | use Coro; |
4 | root | 1.1 | use Coro::Cont; |
5 | |||
6 | root | 1.2 | sub mul23 : Cont { |
7 | root | 1.3 | result 2*shift; |
8 | result 3*shift; | ||
9 | root | 1.2 | } |
10 | root | 1.1 | |
11 | root | 1.3 | my %hash = (1,10,2,20,3,30); |
12 | root | 1.1 | |
13 | root | 1.3 | %hash = map mul23($_), %hash; |
14 | root | 1.1 | |
15 | print join(",", %hash), "\n"; | ||
16 |