Perl Guru Forums: Perl Programming Help: Beginner: "Unknown error"

use strict; 
use warnings; 
use GD::Graph; 
 
sub analyze 
{ 
   #my $k = shift(@_); 
    
   my $input = ""; 
   open (INPUT, "<", "text.txt") or &error("System Error: Could not open internal file for reading."); 
   while (<INPUT>) 
   { 
      $input .= $_; 
   } 
   # Strip tags. 
   $input =~ s/<.*>//m; 
   # Replace all whitespace with a single space. 
   $input =~ s/\s/ /m; 
   # Get an array of all the words. 
   my @words = split(/ /, $input); 
   # Hash the words by counting their occurrences. 
   my %wordsHash = (); 
   foreach (@words) 
   { 
      # Strip any punctuation that came with the word. 
      $_ =~ s/[\.\?:;!,\(\)\-\*\[\]]*//; 
      if (wordsHash{$_}) 
      { 
         $wordsHash{$_}++; 
      } 
      else 
      { 
         $wordsHash{$_} = 1; 
      } 
   } 
   my %charsHash = (); 
   foreach (@words) 
   { 
      my @chars = split(//, $_); 
      foreach (@chars) 
      { 
         if ($_ =~ /[A-Za-z]/) 
         { 
            if ($charsHash{$_}) 
            { 
               $charsHash{$_}++; 
            } 
            else 
            { 
               $charsHash{$_} = 1; 
            } 
         } 
      } 
   } 
    
   my $numSentences = 0; 
   foreach (@words) 
   { 
      $_ =~ s/[\(\)]*//; 
      if ($_ =~ /\w*[\.\?!]*/) 
      { 
         $numSentences++; 
      } 
   } 
    
   my $numWords = scalar(@words); 
    
   my $numUniqueWords = keys(%wordsHash); 
    
   my $numEnglishCharacters = 0; 
   my $key; 
   my $value; 
   while (($key, $value) = each %charsHash) 
   { 
      if ($key =~ /[A-Za-z]/) 
      { 
         $numEnglishCharacters += $value; 
      } 
   } 
    
   my %freqHash = (); 
   while (($key, $value) = each %charsHash) 
   { 
      if ($key =~ /[A-Za-z]/) 
      { 
         $freqHash{$key} = $value/$numEnglishCharacters; 
      } 
   } 
    
   my @numData = (["Sentences", "Words", "Unique Words", "English Characters"], ["$numSentences", "$numWords", "$numUniqueWords", "$numEnglishCharacters"]); 
   my $mygraph = GD::Graph::bars->new(500, 300); 
   my $myimage = $mygraph->plot(\@numData) or &error("System Error: Could not plot graph"); 
 
   print "Content-type: text/html\n\r\n\r"; 
   print "<html><head><body>\n"; 
   print "<h2>Hello World!!!</h2>"; 
   print "</body></head></html>\n"; 
} 
 
sub error 
{ 
   my $message = shift(@_); 
   print "Content-type: text/html\n\r\n\r"; 
   print "<html><head><body>\n"; 
   print "<div align=\"center\"><h2>Error</h2></div>"; 
   print "<div align=\"center\">$message</div>"; 
   print "<br><br>"; 
   print "<div align=\"center\"><form>"; 
   print "<input type=\"button\" value=\"Back\" onclick=\"window.location.href='http://www.kevin.thegreenage.org/public_html/index.html'\">"; 
   print "</form></div>"; 
   #print "<div align=\"center\"><a href=\"http://www.kevin.thegreenage.org/public_html/index.html\">Back to Main Page</a><div>"; 
   print "</body></head></html>\n"; 
} 
 
1;

#!/usr/bin/perl

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);

require "Analyze.pm";

my $Text;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $Text, $ENV{'CONTENT_LENGTH'});
}

my $label;
my $input;
($label, $input) = split(/=/, $Text);
$input =~ tr/+/ /;

if (!$input)
{
print "Location: http://www.kevin.thegreenage.org/public_html/index.html\n\n";
}

my $length = length($input);
if ($length > 5120000)
{
&error("Text area exceeds maximum size of 5120000 characters.\n");
exit;
}

open (FILE, ">", "/home/kfarmer/public_html/kevin/text.txt");
print FILE $input;
close FILE;

&analyze;
exit;


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN