Du verwendest kein

use strict;

Das solltest du machen, es wär von Vorteil.

Was sind Username etc., sind das von Dir definierte Subroutinen?

[quote=Strat,29.08.2003, 01:32]
... $cgi->param(Username) ...[/quote]
Das braucht noch Quotes, etwa so:

$cgi->param('Username')

Will mir jetzt jemand mein FUNKTIONIERENDES Gästebuch ruinieren?
Lies halt mal, was ich zu deiner Frage nach Username und den anderen Variablen geschrieben haben. Sie werden von einem Gästebuch-Formular übermittelt. ES FUNKTIONIERT ALLES, fang bitte net wieder mit so sachen an.
WOLLTE NUR MEINE FRAGE BEANTWORTET HABEN, DIE ICH SCHONMA GESTELLT HATTE, SIEHE SEITE 1 ENDE\n\n

<!--EDIT|MW2000|1062179590-->

Ach nochwas:
DAMIT DIE FRAGE NACH "use strict;" endlich aufhoert:
Was mach ich dann bitte falsch? Alles stimmt jetzt, habe die Variablen vorher deklariert (mit my...), aber folgende Meldung bekomm ich dabei noch

"Username" kann in Perl so keine Variable sein.

Wie hast Du sie denn deklariert?

Als $Username vielleicht?

In genau dieser Schreibweise?

Wollen wir Dein funktionierendes Gästebuch ruinieren?

Wollen wir Deine Seele stehlen?

Was wollen wir eigentlich hier?

Vielleicht wollen wir ja sogar ganz manchmal jemandem helfen? 8)

Aber zum Glück machen wir das alles ganz freiwillig, und wo's schon nicht wie sonst zumeist mit Geld bezahlt wird, sind wir von Freundlichkeit ganz angetan. ^_^

Teste mal:
\n\n

<!--EDIT|Strat|1062186860-->

Tut mir leid, Relais, aber das was du gesagt hattest war alles schonma auf Seite 1. Die Variablen Username, Usermail und Usertext sind nicht definiert, weil sie direkt per post-Methode aus einem Formular übergeben werden.

@Strat: Danke, denke das wird funktionieren, moment, ich probier mal...ok, es funktioniert, DANKE SEHR

Edit: Hab nichts gesagt... Wer lesen kann ist klar im Vorteil *an die stirn schlag*\n\n

<!--EDIT|renee|1062192353-->

[quote=MW2000,29.08.2003, 23:06]Tut mir leid, Relais, aber das was du gesagt hattest war alles schonma auf Seite 1. Die Variablen Username, Usermail und Usertext sind nicht definiert, weil sie direkt per post-Methode aus einem Formular übergeben werden.
[/quote]
Du hast Relais wohl nicht richtig verstanden.

Wenn du schreibst
dann muesste "Username" eine Funktion sein.

Dein "Username" ist aber keine Funktion. Und auch keine Variable, wie du immer behauptest (deshalb geht auch nicht "$Username"), sondern nur der Name eines Formularfeldes, und das wird bei dir nunmal ueber $cgi->param( 'Username' ) angesprochen. "Username" ist dabei nur ein String, der den Namen des Feldes angibt.

Strat hat deinen Code in dieser Hinsicht korrigiert. Relais hat dann noch strats Code verbessert, weil $cgi->param(Username) unter strict einen Fehler gibt: Hier sollte Username ja eigentlich ein String sein, es steht aber nicht in Anfuehrungszeichen. Somit waere es wiederum ein Funktionsaufruf, aber es gibt auch keine Funktion mit diesem Namen, also geht Perl davon aus, dass du doch einen String meinst, aber die Anfuehrungszeichen vergessen hast, und erteilt dir dafuer eine Ruege ("Bareword "Username" not allowed ..."). Einfach Anfuehrungszeichen drum herum, und alle sind zufrieden. Nur darfst du nicht von einer Variablen namens Usernamen reden und es auch nicht so behandeln.

Jetzt alle Missverstaendnisse beseitigt?

Kurz mal eine kleine Einführung MW2000 (und sei mal net so aufbrausend, wir wollen ja nix böses):

$variable = 'String'; < Das ist eine Variable, ein String
@array = ('1','2'); < Das ist auch eine Variable, ein Array
%hash = ('key' => 'value'); < Das ist ebenfalls eine Variable, nämlich ein Hash

&funktion(); < Das ist ein Funktionsaufruf (auf die Subroutine sub funktion {})
Die kann aber auch mit funktion(); aufgerufen werden, aber dann darf kein use strict; verwendet werden, weil das mag das garnicht :)

Und sowas wie du geschrieben hast

kann nicht funktionieren, weil Username ist weder ein String, ein Array, ein Hash noch ein Funktionsaufruf.

und noch zu use strict;: Dieses Pragma zwingt einen Programmierer nur dazu, deine Variabeln ordnungsgemäß zu deklarieren, dH sozusagen, dem Interpret vor dem eigentlichen gebrauch der Variable mitzuteilen, das "sie noch gebraucht wird" :)

Jetzt noch zu deinem Problem mit dem Namen und so freilassen:

Quote

if ((length($Username) < 'mindestlänge der Namens') || ($Usermail!=~/^[A-Z0-9_-.]\@[A-Z0-9_-]\.\w+$/i) || (length($Usertext) < 'mindestlänge der Texts')) {

# Irgendwelche Fehler ausgeben und dann das Programm
# abbrechen

}