#!/usr/bin/perl -w
use strict;
use CGI();
use CGI::Carp qw(fatalsToBrowser);
use vars qw($t1 $t2);
$t1 = 'g1';
$t2 = 'g2';
my $test_var1 = 'foo';
my $test_var2 = 'bar';
print CGI::header();
no strict 'refs';
foreach my $wert (keys %main::) {
printf "%10s = %s<br>\n", scalar($wert), (${"main::$wert"} || 'undefined');
}
Struppi.
--
Javascript ist toll (Perl auch!)
Javascript ist toll (Perl auch!)