Parameter bei SSI und CGI - oder warum funktioniert GET, POST aber nicht? (gelöst) - #163150 (Perl/CGI)

GwenDragon

2012-11-08 11:38

User since
2005-01-17
14533 Artikel
Admin1

test mal folgendes:

SSI test.shtml:

Code: (dl )

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

<html lang="de">

	<head>
		<meta http-equiv="content-type" content="text/html; charset=utf-8">
		<title>Test SSI</title>
	</head>

	<body>
		<p>Datum: <!--#echo var="DATE_LOCAL" --></p>
		<p>Das ist ein Text. ÄÖÜß</p>
		<p>Inhalt eines externen Perl (cgi):<br><pre><!--#exec cgi="cgi-bin/env.pl" --></pre></p>
		<hr>
		<p>Debug (SSI #printenv):<br><pre><!--#printenv--></pre></p>
</body>

</html>

CGI env.pl:

Code (perl): (dl )

#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

my $buffer;

print "Content-Type: text/plain\n\n";

#print "$_ => ",$ENV{$_},"\n" for sort keys %ENV;

print '=' x 30, "\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); 
print 'Buffer [', length $buffer, "], $buffer", "\n";
print '=' x 30, "\n";

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel