nicht angemeldet
Hallo Joachim!
<a href="cgi-bin/counter.pl?url=tttffdie.zip">Link</a>
Das ist richtig.
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$buffer = $ENV{'QUERY_STRING'};
} else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
Das kannst Du Dir sparen, benutze einfach:
use CGI qw(:standard);
dann geht auch diese Zeile:
$url = ¶m('url');
Hier willst Du eigentlich einen Skalar beschreiben "$text", @text ist aber eine Liste.
ausserdem geht sowas nicht über mehere Zeilen.
@text=("<html>
Das geht so:
$text=<<end_text;
<html>
<head>
<title>Kommentarseite</title>
<style>
<!--
#m{
position:absolute;
.
.
.
.
</div>
</body>
</html>");
end_text
print @text;
Und hier dann:
print $text;
Gruß Frank
P.S. beachte die "kompische" Schreibweise der Marke end_text, mal mit ";", am Ende des Blocks ohne!