Hallo Peter,
Beides einzeln funktioniert prima. Beides zusammen führt dazu, daß sich der Perl-Interpreter anscheinend aufhängt - jedenfalls braucht der Prozeß dann länger, als der CGI-Timeout meines Servers. (*Das* ist der Effekt, der bei der Betatest-Version der Suchmaschine auftritt, wenn eine nicht-case-sensitive Suche durchgeführt wird - hallo, Uschi ...)
Bei mir gibt's in Kombination keine Probleme. Welche Versionen benuntzt Du?
Perl 5.004 auf dem Server, ActivePerl Build 522 auf dem PC.
Tip am Rande: Bei ausschliesslich numerischen Indexes kannst Du auch ein Array verwenden.
Yep. Ich bin mir aber noch nicht sicher, ob ich nicht noch auf aussagefähigere Strings umsteige (wenn es in Perl schon keine Aufzählungstypen a la PASCAL gibt).
Ein Lesezugriff auf ein undefiniertes Element ist schlecht und fuehrt bei Verwendung des -w-Switches zu einer Warnung.
Eben - diese Warnung finde ich im Apache-Logfile, wenn ich CGI::Carp ausbaue.
Wenn Du nur die Zustaende + oder undefiniert hast, pruefe lieber so:
if (defined $Search_Aeras{4}) {...}
Danke - das ist eine Verbesserung, die ich verwenden werde.
mfG - Michael