CGI script containing regular expressions

[weloki]

I have a perl file that contains some regular expressions, and I want to make it into a CGI script. Can something like this run on the web so that when the user points to it with their browser it will execute the perl file and deliver the results of the search and replace? Every time I try it gives the message "Internal Server Error."
Below is a shortened version of my file:

#!/usr/bin/perl -w
use CGI qwstandard);
print "Content-type: text/html\n\n";

use diagnostics -verbose;
use warnings 'all';
#use re 'debugcolor';

package XMLtoRDFConverter;

#input XML elements:
$e = "
<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE #... more xml stuff...
";

if ($e =~ m/<!DOCTYPE/)
{$e =~ s/<!DOCTYPE(.*?)>//s;
print ("");}
else {print ("no doc type declaration\n");}

#more regular expressions...

open FH,">rd.txt" or die $!;
print FH $e;
print ("$e\n");

 

[PaulTEG]

If you run it from the command line does it give any errors. Can you check your web log to see more details of the Internal Server Error

--Paul

Nancy Griffith - songstress extraordinaire,
and composer of the snipers anthem "From a distance ...

 

[weloki]

Paul, thanx for the reply. I had some help with it and it turns out that the code needed to be changed a bit. Here is a solution that worked:

#!/usr/bin/perl
use strict;
use warnings;

use CGI;
use CGI::Carp qw/fatalsToBrowser/;

my $q = new CGI;
print $q->header('text/plain');

#input XML elements:
my $e = "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!DOCTYPE #... more xml stuff...>";

if ($e =~ m/<!DOCTYPE/) {
$e =~ s/<!DOCTYPE(.*?)>//;
print "Happy Day\n";
} else {
print "no doc type declaration\n";
}

#more regular expressions...
#open FH,">rd.txt" or die $!;
#print FH $e;
print "$e\n";
#close FH;