nicht angemeldet
Hallo!
Ich habe schon seit mehreren Tagen folgendes Problem und irgendwie kann mir niemand weiterhelfen. Zuerst muss ich noch sagen, dass ich ziemlicher Anfänger bin, was Perl angeht, aber nun zum Thema. Ich möchte erstmal,um es endlich hinzubekommen, einen einfachen Zugriff auf eine fremde Seite (http://fremdeseite.de/) und diese ausgeben. Später möchte ich somit Platzhalter in dieser ersetzen, aber man soll ja klein anfangen. Bei folgenden Script tritt immer der Fehler Premature end of script headers auf. Die Rechte sind richtig gesetzt und Kontent unterstützt auch Sockets , nur leider kein LWP. Ich hoffe ihr könnt mir helfen.
#!/bin/perl
use Socket;
sub get($)
{
my $url = shift;
my ($host, $uri) = ($url =~ m!http://(.*?)(/.*)!);
my $res;
socket SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp');
connect SOCK, sockaddr_in(80, inet_aton($host));
send SOCK, "GET $uri HTTP/1.0\r\nHost: $host\r\n\r\n", 0;
0 while <SOCK> !~ /^\r\n$/;
$res .= $_ while <SOCK>;
close SOCK;
return $res;
}
print "Content-Type: text/html\n\n";
print get("http://www.perlhelp.de/");