Iterator::Array::Jagged

Quickly permute and iterate through multiple jagged arrays
Download

Iterator::Array::Jagged Ranking & Summary

Advertisement

  • Rating:
  • 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