/usr/share/perl5/Array/Utils.pm is in libarray-utils-perl 0.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | package Array::Utils;
=head1 NAME
Array::Utils - small utils for array manipulation
=head1 SYNOPSIS
use Array::Utils qw(:all);
my @a = qw( a b c d );
my @b = qw( c d e f );
# symmetric difference
my @diff = array_diff(@a, @b);
# intersection
my @isect = intersect(@a, @b);
# unique union
my @unique = unique(@a, @b);
# check if arrays contain same members
if ( !array_diff(@a, @b) ) {
# do something
}
# get items from array @a that are not in array @b
my @minus = array_minus( @a, @b );
=head1 DESCRIPTION
A small pure-perl module containing list manipulation routines. The module
emerged because I was tired to include same utility routines in numerous projects.
=head1 FUNCTIONS
=over 4
=item C<unique>
Returns an array of unique items in the arguments list.
=item C<intersect>
Returns an intersection of two arrays passed as arguments, keeping the order of the
second parameter. A nice side effect of this function can be exploited in situations as:
@atreides = qw( Leto Paul Alia 'Leto II' );
@mylist = qw( Alia Leto );
@mylist = intersect( @mylist, @atreides ); # and @mylist is ordered as Leto,Alia
=item C<array_diff>
Return symmetric difference of two arrays passed as arguments.
=item C<array_minus>
Returns the difference of the passed arrays A and B (only those
array elements that exist in A and do not exist in B).
If an empty array is returned, A is subset of B.
Function was proposed by Laszlo Forro <salmonix@gmail.com>.
=back
=head1 BUGS
None known yet
=head1 AUTHOR
Sergei A. Fedorov <zmij@cpan.org>
I will be happy to have your feedback about the module.
=head1 COPYRIGHT
This module is Copyright (c) 2007 Sergei A. Fedorov.
All rights reserved.
You may distribute under the terms of either the GNU General Public
License or the Artistic License, as specified in the Perl README file.
=head1 WARRANTY
This is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.
=cut
use strict;
require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = (
all => [ qw(
&unique
&intersect
&array_diff
&array_minus
) ],
);
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our $VERSION = '0.5';
sub unique(@) {
return keys %{ {map { $_ => undef } @_}};
}
sub intersect(\@\@) {
my %e = map { $_ => undef } @{$_[0]};
return grep { exists( $e{$_} ) } @{$_[1]};
}
sub array_diff(\@\@) {
my %e = map { $_ => undef } @{$_[1]};
return @{[ ( grep { (exists $e{$_}) ? ( delete $e{$_} ) : ( 1 ) } @{ $_[0] } ), keys %e ] };
}
sub array_minus(\@\@) {
my %e = map{ $_ => undef } @{$_[1]};
return grep( ! exists( $e{$_} ), @{$_[0]} );
}
1;
|