Simple RegExp.-Suche

[Johannes Z. Lichtenberger]

Hallo.

Innerhalb eines Scriptes übergebe ich mittels <form action="search.pl" method="post"> unter anderem jenen Wert an eben dieses:
<textarea name="websites" cols="70" rows="6" maxsize="500"></textarea>

Nun erscheint 'Can't call method "param" on an undefined value at D:\Server\Apache2\cgi-bin\search.pl line 53'.

Im Prinzip ist alles was das Script nun tut auf den Websiten die übergeben wurden nach einem Ausdruck zu suchen:

if ($query->param()) {
  foreach (my $query->param('websites') =~ /(http\S*)/gi) {          #<- line 53
    my $uri = $1;
    if (is_success(my $content = get("$uri"))) {
      print "<ul>\n";
      if ($content =~ /$query->param('suche')/ig) {
        print "<li><a href="$uri">$uri</a></li>\n" if my $query->param('treffer');
      }
      else {
        print "<li><a href="$uri">$uri</a></li>\n" if my $query->param('ktreffer');
      }
      print "</ul>\n";
    }
  }
}

Verwendete Module/Pragmas:
use warnings;
use diagnostics;
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;

Johannes