in reply to Searching for a string within an array using regex

Thank you for your responses. I just realized that I actually offered an incorrect example. Let me share some actual code so you can see what I am working with and it will make more sense.

I read in lines from a file. The file contains one URL per line each starting with "/". For instance, "/help.html" or "/index.html" or "/help.html?ri=all". Each line gets stored into an array @line_entry.

Once all lines have been parsed into @line_entry, I iterate through $line_entry[$i]. At each iteration I do the following:

given ($line_entry[$i])
{
    when ($_ ~~ @INDEX_PAGE)
    {
        $INDEX_PAGE_COUNT++;
    }
    when ($_ =~ m/@HELP_PAGE/)
    {
        $HELP_PAGE_COUNT++;
    }
}

[download]

In the case of @INDEX_PAGE, the reason I can get away with using that type of when condition is because the only possibly URLs that cane be parsed from the file are the only two that appear in the array @INDEX_PAGE = {"/", "/index.html"}. There is no regex required since there is no "/index.html?something". It is guaranteed to either be "/" or "/index.html".

However, array @HELP_PAGE = {"/help.html"} is defined as such, but the entries that can be found in the URL file may be "/help.html", but they could also be "/help.html?sometexthere". So I am trying to find the proper means to see if an element in an array is a subset of the string I'm currently examining, and not the other way around as I suggest in my initial post.

Thus, if the string currently being analyzed is ANYTHING that begins with "/help.html" (the element in the @HELP_PAGE array), it should resolve true.

Thank you again for your continued assistance!

Replies are listed 'Best First'.
Re^2: Searching for a string within an array using regex
by Anonymous Monk on Aug 14, 2014 at 18:02 UTC 
    use warnings;
use strict;

use List::Util qw/first/;

my %INDEX_PAGE = map {$_=>1} '/','/index.html';
my @HELP_PAGE = map {qr/^\Q$_\E/} '/help.html';
my @line_entry = ('/help.html','/index.html','/help.html?ri=all');

for my $le (@line_entry) {
    if (exists $INDEX_PAGE{$le})
        { print "$le is an index page\n" }
    elsif (first {$le=~$_} @HELP_PAGE)
        { print "$le is a help page\n" }
    else
        { print "$le is unknown\n" }
}

# Output:
# /help.html is a help page
# /index.html is an index page
# /help.html?ri=all is a help page

    [download]
    • For the exact match, I'm using a hash, since that should be faster than a brute-force search via grep or similar.
    • For the regex match, I'm using qr// to precompile the regular expressions.
    • Instead of grep, I'm using first from List::Util, because that will stop after the first match.
    • I'm staying away from given/when/~~ because those are marked experimental and their implementation may change in the future.

    How many "pages" do you have? Because if it's more than a few, your code is still going to get very repetitive, and an even more general-purpose solution will probably be more maintainable in the long run.

[reply]
[d/l]
[select]

      Improvement: The brute-force search of the regular expressions is actually not needed; one can just precompile the whole thing as one regular expression. (If you wanted to generalize even more, the same thing could be done for the index pages as well.)

      use warnings;
use strict;

my %INDEX_PAGE = map {$_=>1} '/','/index.html';
my $HELP_PAGE = join '|', map {quotemeta} '/help.html';
$HELP_PAGE = qr/^(?:$HELP_PAGE)/;
my @line_entry = ('/help.html','/index.html','/help.html?ri=all');

for my $le (@line_entry) {
    if (exists $INDEX_PAGE{$le})
        { print "$le is an index page\n" }
    elsif ($le=~$HELP_PAGE)
        { print "$le is a help page\n" }
    else
        { print "$le is unknown\n" }
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom