Code:
if (password == richtig)
then öffne NeueSeite.html;
else
print "falsches passwort";
Code:
if ($password eq "richtig") {öffne NeueSeite.html;}
else { print "falsches passwort"; }
Ein == ist nur fuer numeric und then gibt es in Perl nicht, sondern geschweifte Klammern --> {}
Beispiel:
Code:
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my $password=$cgi->param('password');# Uebergebenes Password
if($password eq "richtig"){
print $cgi->redirect($cgi->url_param('meinEingang.html'));
}else{
print $cgi->redirect($cgi->url_param('falsepassw.html'));
}
Allerding wuerde jeder der die URL zu meinEingang.html kennt, diese auch direkt aufrufen koennen.
Also besser ist eine Session erstellen.
T;o)Mes
Lesezeichen