Re^2: Regular Expression Help

[dhackbar]

The one problem I have is that the $check_str is being provided as an input to my routine from a different application, so I don't have control over the syntax :(

I'll see if I can manipulate the check_str once it's in my code though with those suggestions.

Derek

[Eimi Metamorphoumai]

You'll have to figure out exactly what syntax it's using, since it's different from the normal regexp syntax. Here's a quick hack based on a guess of what you want, but it may not be robust.

my $full_text = "(7001) - This is some text";
my $check_str = "([7000|7001|7002|7003]) - This";

$check_str =~ s/([()])/\\$1/g;
$check_str =~ s/\[/(?:/g;
$check_str =~ s/\]/)/g;

if ($full_text =~ /$check_str/) {
    print "full_text has the check_str\n";
}

[GrandFather]

In that case (and assuming you have no control over the format) you have a problem of a whole different order of complexity. What you need to achieve in that case is to map the input syntax to Perl's regex syntax and that is likely not a trivial task.

At the very least you will require a formal description of the input syntax and, from that, you will have to work out how to achieve the same results using Perl's regex facilities. Watch out along the way for security issues. For example if the user can introduce (?{die}) (for example) into the search string and that gets passed through to the regex, unfortunate things may happen :).