Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
while ( my ($val) = $iter->() ) {
    print "$val\n";
}
  2. or download this
        
C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/generator_iterator.pl 
5
...
17

Compilation finished at Sat Nov 13 21:18:20