Hallo Charles,
Auf dem Server, so habe ich gerade nachgeschaut, ist es installiert. Was kann da schief laufen? (Muss eventuell noch ein anderes Modul eingebunden werden, auf das LWP::SIMPLE zurückgreift? In der Modul-Beschreibung bei CPAN steht davon allerdings nichts.)
du hättest das Skript einfach mal ausführen können, um zu sehen was für ne Fehlermeldung kommt.
Bei mir kommt:
Undefined subroutine &forumlinks::get called at test.pl line 9.
Der Fehler ist dann schnell gefunden..
#!/usr/bin/perl -w
benutze lieber "use warnings" statt -w
use strict;
use LWP::Simple;
...
$url = "http://www.forum-gesundheitspolitik.de";
$content = get("$url");
$content = LWP::Simple::get($url);
if (defined $content) {
...
print "</body></html>";
ich würde sogar noch etwas mehr verändern:
#!/usr/bin/perl
package forumlinks;
use strict;
use warnings;
use LWP::Simple qw(get);
use CGI;
use CGI::Carp 'fatalsToBrowser';
my $q = new CGI;
print $q->header();
print $q->start_html();
my $url = "http://www.forum-gesundheitspolitik.de";
my $content = get("$url");
if (defined $content) {
print "$url <br>\n $content \n";
} else {
die "unable to recieve $url";
}
print $q->end_html();
Bin für jede Info dankbar, da ich ich schon seit 3 Stunden hierüber ohne Ergebnis brüte.
das glaube ich dir nicht ;)
Gruß,
Benne
ie:% fl:( br:> va:) ls:> fo:| rl:° ss:) de:[ js:| ch:| mo:} zu:)