[quote=Strat,19.04.2005, 13:10]1. die verwendung von use strict und use warnings wuerde dir schon einen grossteil der fehler zeigen
2.

besser:

3. $data('total') war schon... $data{'total}

4. $data{'_[0]} soll wohl $data{$_[0]} sein

5. es kann passieren, dass die die's vor dem content-type ausgegeben werden (weil STDERR ungebuffert ausgegeben wird, waehrend STDOUT gebuffert ist); vielleicht ist es zum entwickeln besser, auf die die's zu verzichten und da eine fehlermeldung via print auszugeben.

6. Interessant zum entwickeln ist auch
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
das gibt dir mehr feedback

7. die syntax eines scriptes kannst du testen, indem du es folgendermaszen ausfuehrst:
perl -c script.pl

dabei wird es (bis auf BEGIN- und aehnliche bloecke) nicht ausgefuehrt, sondern nur die syntax gecheckt. solange das noch fehler zurueckliefert, brauchst du igar nicht versuchen, es auf dem webserver zum laufen zu bringen...[/quote]
Habe die Sachen rausgeworfen, da ich Windows habe und das bringt mir dann nichts.
Kenne aber my und local für Perl Versionen unter 5.

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

hatte ich auch im Skript stehen, aber wie gesagt mache das nicht rein, weil es nichts bringt unter Windows.

perl -c
Habe ich vergessen auszuprobieren.

perl -w
use stricts;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

sollte man oben im Skript haben.
Das weiß ich