Tie::CountLoopTie::CountLoop is a Perl module that helps you have a counter looping in a scalar with min max and increment value. | |
Download |
Tie::CountLoop Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Dulaunoy Fabrice
- Publisher web site:
- http://search.cpan.org/~fdulau/Tie-CountLoop-1.5/lib/Tie/CountLoop.pm
Tie::CountLoop Tags
Tie::CountLoop Description
Tie::CountLoop is a Perl module that helps you have a counter looping in a scalar with min max and increment value. Tie::CountLoop is a Perl module that helps you have a counter looping in a scalar with min max and increment value.SYNOPSIS use Tie::CountLoop; tie my $counter , 'Tie::CountLoop',15 ,-1 ,15 ,7 ,0; my $t = tied $counter; $t->increment( 1 ); for ( 1 .. 20 ) { print " n"; } $t->increment( 0 ); for ( 1 .. 20 ) { print " n"; } or use Tie::CountLoop; tie my $counter , 'Tie::CountLoop'; for ( 1 .. 20 ) { print " n"; }Tie::CountLoop allows you to tie a scalar in such a way that it increments each time it is used. The tie takes 4 optionals extra arguments.Argument 1: is the start value of the counter. (default =0).Argument 2: is the increment value. (default = 1).Argument 3: is the maximal value. When this value is reached, the counter is set to the minimal value (default = (2**32) -1)Argument 4: is the minimal value. When this value is reached if we used an negative increment value, the counter is set to the maximal value (default = 0)Argument 5: is a skipping value. If set to 3, means that you could access the counter 3 time without incrementing (defualt=1) Requirements: · Perl
Tie::CountLoop Related Software