https://github.com/trizen/search-multimatch
An efficient, tree-based, 2D multimatcher.
https://github.com/trizen/search-multimatch
perl perl-module perl5 search
Last synced: 7 days ago
JSON representation
An efficient, tree-based, 2D multimatcher.
- Host: GitHub
- URL: https://github.com/trizen/search-multimatch
- Owner: trizen
- License: artistic-2.0
- Created: 2016-07-25T15:59:52.000Z (almost 10 years ago)
- Default Branch: master
- Last Pushed: 2023-07-08T15:53:54.000Z (almost 3 years ago)
- Last Synced: 2025-12-01T06:34:12.032Z (6 months ago)
- Topics: perl, perl-module, perl5, search
- Language: Perl
- Homepage: https://metacpan.org/release/Search-MultiMatch
- Size: 20.5 KB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: Changes
- License: LICENSE
Awesome Lists containing this project
README
# Search::MultiMatch
[Search::MultiMatch](https://metacpan.org/release/Search-MultiMatch) works by creating a multidimensional hash-table with keys as 2D-arrays, which are stored as nodes.
It accepts matching the stored entries with a pattern, that is also a 2D-array, identifying matches by walking the table from node to node.
```perl
use Search::MultiMatch;
# Create a SMM object
my $smm = Search::MultiMatch->new();
# Add an entry
$smm->add($key, $value); # key is a 2D-array
# Search with a pattern
my @matches = $smm->search($pattern); # pattern is a 2D-array
```
This example illustrates how to add some key/value pairs to the table and how to search the table with a given pattern at a later time:
```perl
use Search::MultiMatch;
use Data::Dump qw(pp);
# Creates a SMM object
my $smm = Search::MultiMatch->new();
# Create a 2D-array key, by splitting the string
# into words, then each word into characters.
sub make_key {
[map { [split //] } split(' ', lc($_[0]))];
}
my @movies = (
'My First Lover',
'A Lot Like Love',
'Funny Games (2007)',
'Cinderella Man (2005)',
'Pulp Fiction (1994)',
'Don\'t Say a Word (2001)',
'Secret Window (2004)',
'The Lookout (2007)',
'88 Minutes (2007)',
'The Mothman Prophecies',
'Love Actually (2003)',
'From Paris with Love (2010)',
'P.S. I Love You (2007)',
);
# Add the entries
foreach my $movie (@movies) {
$smm->add(make_key($movie), $movie);
}
my $pattern = make_key('i love'); # make the search-pattern
my @matches = $smm->search($pattern); # search by the pattern
pp \@matches; # dump the results
```
The results are:
```perl
[
{match => "P.S. I Love You (2007)", score => 2},
{match => "My First Lover", score => 1},
{match => "A Lot Like Love", score => 1},
{match => "Love Actually (2003)", score => 1},
{match => "From Paris with Love (2010)", score => 1},
]
```
## INSTALLATION
To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
## SUPPORT AND DOCUMENTATION
After installing, you can find documentation for this module with the
perldoc command.
perldoc Search::MultiMatch
You can also look for information at:
RT, CPAN's request tracker (report bugs here)
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Search-MultiMatch
AnnoCPAN, Annotated CPAN documentation
http://annocpan.org/dist/Search-MultiMatch
CPAN Ratings
http://cpanratings.perl.org/d/Search-MultiMatch
Search CPAN
http://search.cpan.org/dist/Search-MultiMatch/
## LICENSE AND COPYRIGHT
Copyright (C) 2016-2022 Daniel Șuteu
This program is free software; you can redistribute it and/or modify it
under the terms of the the Artistic License (2.0). You may obtain a
copy of the full license at:
L