#!/usr/bin/perl -w
use CGI;
# create CGI object
$q = new CGI;
# extract incoming POST data from STDIN
$text = $q->param('text');
$expression = $q->param('expression');
chomp($text);
chomp($expression);
$out = $text;
$result = "";
if ($expression !~ m/[\w{1,}|\.]/ || $expression eq '')
{
$result = "Unable to handle expression."
}
elsif ($text =~ m/($expression)/m )
{
$out = $text;
$result = "m\/$expression\/ matches \'$1\'.";
}
else
{
$result = "Found no match.";
}
print <
Regular Exression Tester
Regular Expression Matching
FORM