nicht angemeldet
Hello
Hab das alles getestet.
Wenn ich #!c:/perl/bin/perl -w setze läuft das Script nicht mehr. Mit "use CGI qw/param/;" statt "require "cgi-lib.pl";" ändert sich nichts. Das &subroutine; hab ich aus dem Lama-Buch (3. Auflage für Perl 5.6). "<i>$in{'username'}</i>\n";" gibt den übergebenen Wert der Variablen aus und funktioniert, demzufolge auch die Übergabe.
Weiter Ideen?
Hoi,
#!c:/perl/bin/perl
#!c:/perl/bin/perl -w
use strict;
require "cgi-lib.pl";
besser: use CGI qw/param/;
require "datum.pl";
$date = &ctime(time);
chop($date);
&parse_form;
Dieses &subroutine; ist perl4-Syntax. Ueberleg mal, auf subroutine(); umzusteigen.
if($username eq '')
wo wird $username gesetzt? Und, verwende mal $username !~ /\S/ oder so.
{&ohne}
else {&mit}
»»
sub mit {
print "Content-type: text/html\n\n";
print "\n";
print "<HTML>\n";
print "Dein Name lautet: <i>$in{'username'}</i>\n";
Siehe das Posting von Jan R.: meintest du oben vielleicht $in{'username'}?
Gruesse,
CK