#!/usr/bin/perl
use CGI; my $CGI = new CGI;
use YAPE::Regex::Explain;
print "Content-Type: text/html\n\n";
my $regex = $CGI->param('regex');
$regex =~ s|^/(.+)/$|$1|;
print <<"EOL";
Explain Regular Expressions
EOL
if($regex){
print "
\n";
my $parser = YAPE::Regex::Explain->new($regex);
my $explaination = $parser->explain();
my @explaination = split(/\n-+\n/, $explaination);
splice( @explaination, 1, 1 );
splice( @explaination, -1 );
$explaination = join("\n" . ('-' x 80) . "\n", @explaination);
$explaination =~ s/^.+?matches as follows://s;
$explaination =~ s//>/g;
$explaination =~ s/"/"/g;
print "" . $explaination . "
"
}
print <<"EOL";
EOL