The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
List-Flat-0.001_002
River stage one • 1 direct dependent • 2 total dependents
++
/ List::Flat

NAME

List::Flat - Functions to flatten a structure of array references

VERSION

This documentation refers to version 0.001_002

SYNOPSIS

    use List::Flat(qw/flat flat_f flat_r/);
    
    my @list = ( 1, [ 2, 3, [ 4 ], 5 ] , 6 );
    
    my @newlist = flat_f(@list);
    # ( 1, 2, 3, 4, 5, 6 )

    push @list, [ 7, \@list, 8, 9 ];
    my @newerlist = flat_r(@list);
    # ( 1, 2, 3, 4, 5, 6, 7, 8, 9 )
    
    my @evennewerlist = flat(@list);
    # throws exception

DESCRIPTION

List::Flat is a module with functions to flatten a deep structure of array references into a single flat list.

FUNCTIONS

flat()

This function takes its arguments and returns either a list (in list context) or an array reference (in scalar context) that is flat, so there are no (non-blessed) array references in the result.

If there are any circular references -- an array reference that has an entry that points to itself, or an entry that points to another array reference that refers to the first array reference -- it will throw an exception.

 my @list = (1, 2, 3);
 push @list, \@list;
 my @flat = flat(@list);
 # throws exception

But it will process it again if it's repeated but not circular.

 my @sublist = ( 4, 5, 6 );
 my @repeated = ( \@sublist, \@sublist, \@sublist);
 my @repeated_flat = flat (@repeated);
 # (4, 5, 6, 4, 5, 6, 4, 5, 6)
flat_r()

This function takes its arguments and returns either a list (in list context) or an array reference (in scalar context) that is flat, so there are no (non-blessed) array references in the result.

If there are any circular references -- an array reference that has an entry that points to itself, or an entry that points to another array reference that refers to the first array reference -- it will not descend infinitely. It skips any reference that it is currently processing. So:

 my @list = (1, 2, 3);
 push @list, \@list;
 my @flat = flat(@list);
 # (1, 2, 3)

But it will process it again if it's repeated but not circular.

 my @sublist = ( 4, 5, 6 );
 my @repeated = ( \@sublist, \@sublist, \@sublist);
 my @repeated_flat = flat (@repeated);
 # (4, 5, 6, 4, 5, 6, 4, 5, 6)
flat_f()

This function takes its arguments and returns either a list (in list context) or an array reference (in scalar context) that is flat, so there are no (non-blessed) array references in the result.

It does not check for circular references, and so will go into an infinite loop with something like

 @a = ( 1, 2, 3);
 push @a, \@a;
 @b = flat_f(\@a);

So don't do that. Use flat() or flat_r() instead.

When it is fed non-infinite lists, this function seems to be about twice as fast as flat().

CONFIGURATION AND ENVIRONMENT

The functions will normally use Ref::Util to determine whether an element is an array reference or not, but if the environment variable $PERL_LIST_FLAT_NO_REF_UTIL is set to a true value, or the perl variable List::Flat::NO_REF_UTIL is set to a true value before importing it, it will use its internal pure-perl implementation.

DEPENDENCIES

It has one optional dependency, Ref::Util. If it is not present, a pure perl implementation is used instead.

SEE ALSO

There are several other modules on CPAN that do similar things.

Array::DeepUtils

I have not tested this code, but it appears that its collapse() routine does not handle circular references. Also, it must be passed an array reference rather than a list.

List::Flatten

List::Flatten flattens lists one level deep only, so

  1, 2, [ 3, [ 4 ] ]

is returned as

  1, 2, 3, [ 4 ]

This might be, I suppose, useful in some circumstance or other.

List::Flatten::Recursive

The code from this module works well and does the same thing as flat_r(), but it seems to be somewhat slower than List::Flat (in my testing; better testing welcome) due to its use of recursive subroutine calls rather than using a queue of items to be processed. Moreover, it is reliant on Exporter::Simple, which apparently does not pass tests on perls newer than 5.10.

List::Flatten::XS

This is very fast and is worth using if one can accept its limitations. These are, however, significant:

  • It flattens blessed array references as well as unblessed ones, which means that any array-based objects (for example, Path::Tiny objects) will be flattened as well. Array-based objects aren't all that common, but that's not usually what's desired.

  • Like all XS modules it requires a C compiler on the host system to be installed, or some kind of special binary installation (e.g., ActiveState's ppm).

  • It goes into an infinite loop with circular references.

  • It must be passed an array refeernce rather than a list.

It does have the potentially useful feature of being able to specify the level to which the array is flattened (so one can ask for the first and second levels to be flat, but the third level preserved as references).

At one point in the development of List::Flat there was an intent to use this module to speed up performance, but it wasn't acceptable that it flattened objects.

It is certainly possible that there are others.

ACKNOWLEDGEMENTS

Ryan C. Thompson's List::Flatten::Recursive inspired the creation of the flat_r() function.

Aristotle Pagaltzis suggested throwing an exception upon seeing a circular reference rather than simply skipping it.

Mark Jason Dominus's book Higher-Order Perl was and continues to be extremely helpful and informative.

BUGS AND LIMITATIONS

If you bless something into a class called 'ARRAY', the pure-perl version will break. But why would you do that?

AUTHOR

Aaron Priven <apriven@actransit.org>

COPYRIGHT & LICENSE

Copyright 2017

This program is free software; you can redistribute it and/or modify it under the terms of either:

  • the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version, or

  • the Artistic License version 2.0.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.