++ed by:
WRUPPERT ABRAXXA

2 PAUSE users

加藤 明

NAME

Set::Intersection - provides an API to get intersection (of set theory) of ARRAYs.

VERSION

Version 0.04;

SYNOPSIS

  use Set::Intersection;

  my @arr1 = qw/3 1 4 1 5 9/;
  my @arr2 = qw/1 7 3 2 0 5/;
  my @intersection = get_intersection(\@arr1, \@arr2);
  # got (1, 3, 5) in @intersection

EXPORT

get_intersection

FUNCTIONS

get_intersection()

    get_intersection([\%options,] [\@ARRAY[, \@ARRAY[, ...]]]);

Returns intersection set (as LIST) of all ARRAYs.

  • The result LIST is uniqued and unordered.

  • If no ARRAYs are passed, the result LIST is empty.

  • If only one ARRAY is passed, the result LIST is same as that passed. (In this case, elements won't be uniqued nor will the order bechanged.)

  • If you have undef in any LIST, you'll be warned.

%options

    -preordered => BOOLEAN

To reduce calculation time, get_intersection() sorts ARRAYs by their length before calculating intersections.

This option tells that order of ARRAYs are well done, and calculation of intersection will be based on left most ARRAY.

SEE ALSO

List::Compare, Set::Object

AUTHOR

turugina, <turugina at cpan.org>

BUGS

Please report any bugs or feature requests to bug-list-intersection at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Set-Intersection. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Set::Intersection

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 turugina, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.