Hallo!Es geht um untenstehendes Skript, bei dem ich einen Fehler einzugrenzen versucht habe, der mir einiges Kopfzerbrechen bereitet hat.
Wenn ich die Zeile
- use CGI qw(:standard);
auskommentiere, dann wird die Eingabe a als solche erkannt, sonst bekomme ich die Fehlermeldung (Loginart muss a oder p sein).
Was verändert CGI in diesem dürren Skript-Zeilen?
#!/usr/bin/perl use warnings;
use diagnostics;
#use strict;
use CGI qw(:standard);
require "cgiupr.pl";
print "________________________\n\n";
print "\nBitte Login-Art (a oder p) eingeben.";
my $art = <STDIN>;
chomp $art;
print "\nLogin-Art ist $art\n";
if ($art eq 'a')
{
print "Login-Art ist jetzt wohl tatsächlich $art (a)";
}
unless (($art eq 'a') or ($art eq 'p'))
{
print "Loginart muss a oder p sein.";
exit;
}
$ende = <STDIN>;
Datum: 01.07.2008-23:04
Was hat CGI hier zu suchen?
