Steven Haryanto > Array-Find-0.07 > Array::Find

Download:
Array-Find-0.07.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Module Version: 0.07   Source  

NAME ^

Array::Find - Find items in array, with several options

VERSION ^

version 0.07

SYNOPSIS ^

 use Array::Find qw(find_in_array);
 use Data::Dump;

 dd find_in_array(
     items      => [qw/a x/],
     array      => [qw/a b d a y x/],
     max_result => 2,
 ); # ['a', 'a']

 # return unique results
 dd find_in_array(
     items      => [qw/a x/],
     array      => [qw/a b d a y x/],
     max_result => 2,
     unique     => 1,
 ); # ['a', 'x']

 # find by prefix (or suffix, with/without word separator), in multiple arrays
 dd find_in_array(
     item       => 'a.b',
     mode       => 'prefix',
     word_sep   => '.',
     arrays     => [
         [qw/a a.b. a.b a.bb/],
         [qw/a.b.c b.c.d/],
     ],
 ); # ['a.b.', 'a.b', 'a.b.c']

DESCRIPTION ^

This module provides one subroutine: find_in_array to find items in array.

This module has Rinci metadata.

FUNCTIONS ^

None of the functions are exported by default, but they are exportable.

SEE ALSO ^

List::Util, List::MoreUtils

DESCRIPTION ^

This module has Rinci metadata.

FUNCTIONS ^

None are exported by default, but they are exportable.

find_in_array(%args) -> any

Find items in array, with several options.

findinarray looks for one or more items in one or more arrays and return an array containing all or some results (empty arrayref if no results found). You can specify several options, like maximum number of results, maximum number of comparisons, searching by suffix/prefix, case sensitivity, etc. Consult the list of arguments for more details.

Currently, items are compared using the Perl's eq operator, meaning they only work with scalars and compare things asciibetically.

Arguments ('*' denotes required arguments):

Return value:

AUTHOR ^

Steven Haryanto <stevenharyanto@gmail.com>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2012 by Steven Haryanto.

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

syntax highlighting: