| Revision: | 1.3 |
| Committed: | Thu Jul 19 04:13:22 2001 UTC (25 years, 3 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 |