Help for this page

Select Code to Download


  1. or download this
     
C:\test>p1
perl> sub getIter{ my ($s,$e,$ref)=@_; $e=$#$ref if $e==-1; return sub
+ { $s<=$e ? $ref->[$s++] : (); }}
...
perl> print while $_ = $iter->()
500001500002500003500004500005500006
perl>
  2. or download this
    #! perl -slw
use strict;
...
500003
500004
500005
  3. or download this
    #! perl -slw
use strict;
...
modified

C:\test>
  4. or download this
    #! perl -slw
use strict;
...
some value

C:\test>