1.
also, ich habe eine Perl-Datei mit folgendem Code:
#!/usr/local/bin/perl
print "Content-type: text/html\r\n";
print "\r\n";
my $Ausgabe;
open(writer, ">date/textummenu.txt");
open(reader, "<date/umdat.txt");
my $geleseneZeichen = read(reader, $Ausgabe, 20000);
close(reader);
@infos = split(/;/, $Ausgabe);
print writer "<div class='text'>
<h3>Vorhanden ist folgendes:</h3></p>
<ul>";
%items = ();
while(<@infos>) {
if ($_ eq "1") {
$name = "Goldstücke";
}
$menge = $items{$name} + "1";
%items = ($name, $menge);
}
if (exists $items{'Gold'}) {
print writer "[*]Gold: ", $items{'Gold'}, "";
}
print writer "[/list]</p></div>";
close(writer);
open(writer, ">ummenu.htm");
open(back, "<date/back.txt");
open(head, "<date/head.txt");
open(fig, "<date/fig.txt");
open(text, "<date/textummenu.txt");
while(<head>){
print writer $_;
}
while(<fig>){
print writer $_;
}
while(<text>){
print writer $_;
}
print writer "<div class='header'>\n<p valign='middle'><center><h2>Umgebungs-Menü</h2></center></p>\n</div>";
while(<back>){
print writer $_;
}
close(head);
close(back);
close(fig);
close(text);
Alles anzeigen
deren Zweck ist es aus einer Datei namens "umdat.txt", die wie folgt aussieht,
daten herausulesen und daraus ein Html Dokument zu erstellen, welches wiederrum so aussieht:
was es nach ausführen des Programms allerdings immer noch tut.
Woran könnte das liegen?
Sämtliche genannten Dateinamen existieren und liegen in den angegeben Verzeichnissen.
Auserdem wüsste ich gern, wie ein Kontakt-Formular in PHP oder Java script auszudehen hat am besten mit folgenden funktionen:
1. Wenn eines der Felder(Absender, Nachricht). Nicht ausgefüllt ist, soll das Formular nicht abzuschicken sein, und
2. sobald das Formular abgeschickt wurde soll bitte die Funktion close.window() ausgeführt werden.
2.
Wahrscheinlich habe ich irgendein absolut nichtiges Problem übersehen aber weiß einer wieseo dieser
#!/usr/local/bin/perl
print "Content-type: text/html\r\n";
print "\r\n";
use CGI qw(:standard);
$query = new CGI;
# hier holst du dein übergabe parameter
my $username = $query->param('username') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
my $pswd = $query->param('pswd') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
my $pswdw = $query->param('pswdw') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
my $mail = $query->param('mail') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
my $news = $query->param('news') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
my $spez = $query->param('spez') die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
print "<html><head><title>Anmeldung erfolgt...</title></head><body>";
if ($pswd eq $pswdw) {
open(writer, ">>newusers.txt") die "
Es ist ein Problem aufgetreten! [url='mailadresse']Melden[/url]</p>";
print writer "\nUsername: ", $username, "; Passwort:", $pswd, "; Mail:", $mail, "; Newsletter: ";
if ($news eq "1") {
print writer "ja";
}
else {
print writer "nein";
}
print writer "; spezies: ", $spez, "; Inventar: Standart;";
close(writer);
}
else {
print "
<h1>Die Eingegeben Passwörter stimmen <u>nicht</u> überein!</h1></p>
[url='reg.htm']Erneut versuchen[/url]</p>";
}
print "</body></html>";
Alles anzeigen
nicht funzt?
und was ich mich noch frage ist wie man bei diesem
ein Hintergrundbild und Größe für das Eingabefeld setzen kann.
Dannge schon mal im voraus!