Syntax::Operator::Zip - infix operator to compose two lists together
Syntax::Operator::Zip
On Perl v5.38 or later:
use Syntax::Operator::Zip; foreach (@xvals Z @yvals) { my ($x, $y) = @$_; say "Value $x is associated with value $y"; }
Or on Perl v5.14 or later:
use v5.14; use Syntax::Operator::Zip qw( zip ); foreach (zip \@xvals, \@yvals) { my ($x, $y) = @$_; say "Value $x is associated with value $y"; }
This module provides infix operators that compose lists of elements by associating successive elements from each of the input lists, forming a new list.
Support for custom infix operators was added in the Perl 5.37.x development cycle and is available from development release v5.37.7 onwards, and therefore in Perl v5.38 onwards. The documentation of XS::Parse::Infix describes the situation in more detail.
While Perl versions before this do not support custom infix operators, they can still be used via XS::Parse::Infix and hence XS::Parse::Keyword. Custom keywords which attempt to parse operator syntax may be able to use these.
XS::Parse::Infix
Additionally, earlier versions of perl can still use the function-like wrapper versions of these operators. Even though the syntax appears like a regular function call, the code is compiled internally into the same more efficient operator internally, so will run without the function-call overhead of a regular function.
my @result = @lhs Z @rhs; # returns [$lhs[0], $rhs[0]], [$lhs[1], $rhs[1]], ...
Yields a list of array references, each containing a pair of items from the two operand lists. If one of the operand lists is shorter than the other, the missing elements will be filled in with undef so that every array reference in the result contains exactly two items.
undef
my @result = @alphas Z @betas Z @gammas Z ... # returns [$alphas[0], $betas[0], $gammas[0], ...], ...
Since version 0.10 this module supports list-associative combinations of more than two input lists at once. The result will be composed of parallel items from each of the given input lists.
my @result = @lhs M @rhs; # returns $lhs[0], $rhs[0], $lhs[1], $rhs[1], ...
Yields a list of the values from its operand lists, rearranged into pairs and flattened. If one of the operand lists is shorter than the other, the missing elements will be filled in with undef so that the result is correctly lined up.
my @result = @alphas M @betas M @gammas M ... # returns $alphas[0], $betas[0], $gammas[0], ..., $alphas[1], ...
The result of this operator is useful for constructing hashes from two lists containing keys and values
my %hash = @keys M @values;
This is also useful combined with the multiple variable foreach syntax of Perl 5.36 and above:
foreach
foreach my ( $alpha, $beta, $gamma ) ( @alphas M @betas M @gammas ) { ... }
As a convenience, the following functions may be imported which implement the same behaviour as the infix operators, though are accessed via regular function call syntax. The lists for these functions to operate on must be passed as references to arrays (either named variables, or anonymously constructed by [...]).
[...]
my @result = zip( \@lhs, \@rhs, ... );
A function version of the "Z" operator.
See also "zip" in List::Util.
my @result = mesh( \@lhs, \@rhs, ... );
A function version of the "M" operator.
See also "mesh" in List::Util.
Paul Evans <leonerd@leonerd.org.uk>
To install Syntax::Operator::Zip, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Syntax::Operator::Zip
CPAN shell
perl -MCPAN -e shell install Syntax::Operator::Zip
For more information on module installation, please visit the detailed CPAN module installation guide.