Use of uninitialized value in numeric gt (>) at...

[Philipp Hasenfratz]

Halihallo Alain

Verwende:
perldoc CGI

das habe ich und sogar mit use strict;

Und was greifst du noch auf $ENV{} zurück? - CGI soll genau dies
unterbinden.

Ich habs jetzt so geschrieben:
my $len  = $ENV{'CONTENT_LENGTH'} || '101';
if (($len > 100) or ($ENV{'REQUEST_METHOD'} eq "GET"))
{
die("401 error 3\n");
}

Sinnvoller wäre:

nichts! - Kein $len, kein gar nix

if (
      $ENV{'REQUEST_METHOD'} eq 'GET' ||
      !exists($ENV{CONTENT_LENGTH}) ||
      $ENV{CONTENT_LENGTH}>100
   ) {
   die("401 error 3\n");
}

Entwder ist FormMethod eq 'GET' => Fehler, oder
CONTENT_LENGTH nicht definiert  => Fehler, oder
wenn definiert, wenn > 100      => Fehler! sonst
OK, weiter im Text... Sehr restriktiv deine Abfrage, kein Input
grösser als 100 Zeichen erlaubt?

Viele Grüsse

Philipp