Iterator::Array::JaggedQuickly permute and iterate through multiple jagged arrays | |
Download |
Iterator::Array::Jagged Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- John Drago
- Publisher web site:
- http://search.cpan.org/~johnd/
Iterator::Array::Jagged Tags
Iterator::Array::Jagged Description
Quickly permute and iterate through multiple jagged arrays Iterator::Array::Jagged is a Perl module that can permute through sets of "jagged" arrays - arrays of varying lengths.Iterator::Array::Jagged works much like the odometer in an automobile. Except that each set of "numbers" can have any kind of data you want, and each set can contain 1 or more elements.SYNOPSIS use Iterator::Array::Jagged; # Build up a set of data: my @data = ( , , ); # Iterator in object-oriented mode: my $iterator = Iterator::Array::Jagged->new( data => \@data ); while( my @set = $iterator->next ) { print "Next set: '" . join("&", @set) . "'\n"; }# end while() # Iterator is a subref: my $itersub = Iterator::Array::Jagged->get_iterator( @data ); while( my @set = $itersub->() ) { print "Next set: '" . join("&", @set) . "'\n"; }# end while() # Functional callback style: Iterator::Array::Jagged->permute(sub { my (@set) = @_; print "Next set: '" . join("&", @set) . "'\n"; }, @data );Each example in the code above code prints the following: Next set: b&c&e' Next set: a&d&e' Next set: b&d&e' Next set: a&c&f' Next set: b&c&f' Next set: a&d&f' Next set: b&d&f' Next set: a&c&g' Next set: b&c&g' Next set: a&d&g' Next set: b&d&g' Requirements: · Perl
Iterator::Array::Jagged Related Software