Philipp Hasenfratz: Cgi Ausgabe nach Auflösung

Beitrag lesen

Halihallo Bompel

Kannst du mir vielleicht ein script in perl machen, was die daten

als neue html datei ausgibt (z.B. <html><body><p>x,y</body></html>)

#!/usr/bin/perl

use strict;
use POSIX;   # wird für floor() gebraucht => abhacken
             # der Nachkommastellen
use CGI;

my $cgi = new CGI;

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

my $x = $cgi->param( 'x' );
my $y = $cgi->param( 'y' );

my $col1 = floor($x / 5);  # 20% des Bildschirms

print '<html>';
print '<frameset cols="'.$col1.',*">';
print '<frame src="test1.html">';
print '<frame src="test2.html">';
print '</frameset>';
print '</html>';

so was? - oder...

#!/usr/bin/perl

use strict;
use CGI;

my $cgi = new CGI;

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

my $x = $cgi->param( 'x' );
my $y = $cgi->param( 'y' );

print '<html>';
print '<h1>Your Screensize</h1>';
print 'x-size: ' . $x . '<br />';
print 'y-size: ' . $y . '<br />';
print '</html>';

Viele Grüsse

Philipp