3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-25 20:22:37 +01:00
pbot/lib/PBot/Plugin/FuncGrep.pm
2021-07-13 19:45:56 -07:00

70 lines
1.4 KiB
Perl

# File: FuncGrep.pm
#
# Purpose: Registers the grep Function
# SPDX-FileCopyrightText: 2021 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
package PBot::Plugin::FuncGrep;
use parent 'PBot::Plugin::Base';
use PBot::Imports;
sub initialize {
my ($self, %conf) = @_;
$self->{pbot}->{functions}->register(
'grep',
{
desc => 'prints region of text that matches regex',
usage => 'grep <regex>',
subref => sub { $self->func_grep(@_) }
}
);
}
sub unload {
my $self = shift;
$self->{pbot}->{functions}->unregister('grep');
}
sub func_grep {
my $self = shift @_;
my $regex = shift @_;
my $text = "@_";
my $result = eval {
my $result = '';
my $search_regex = $regex;
if ($search_regex !~ s/^\^/\\b/) {
$search_regex = "\\S*$search_regex";
}
if ($search_regex !~ s/\$$/\\b/) {
$search_regex = "$search_regex\\S*";
}
my $matches = 0;
while ($text =~ /($search_regex)/igms) {
$result .= "$1\n";
$matches++;
}
return "grep: '$regex' not found" if not $matches;
return $result;
};
if ($@) {
$@ =~ s/ at.*$//;
$@ =~ s/marked by .* HERE in m\/\(//;
$@ =~ s/\s*\)\/$//;
return "grep: $@";
}
return $result;
}
1;