David Langkamp: Perl lokal mit Xitami testen =» script bleibt stecken.

SELF-Forum

Perl lokal mit Xitami testen =» script bleibt stecken.

David Langkamp
– Informationen zu den Bewertungsregeln

Hi Leute,

ich versuche mich im Augenblick im Perl einzuarbeiten.
Dazu habe ich mir nen Interpreter + einen Xitamiserver installiert.
Folgende Situation:

  • ein einfaches Script -wie das Beispiel aus SelfHTML - funzt.
  • ein vorgefertigtes Guestbookscript funzt nicht!
    => es wird nicht in die datei guestbook.htm geschrieben!
    => es kommt keine Fehlermeldung
    => im Browserfenster steht dann nur guestbook.pl - kein text!

*schnief*

Also habe ich ein eigenes script entworfen. own.pl => eine ziemlich abgespeckte einfacher Version eines guestbooks.
=> das gleiche Problem.

Ich würde mich über eine Antwort freuen. thx - shcon im voraus!

David Langkamp

P.S Vielleicht kennt einer von euch sich gut in Perl aus. Vielleicht liegt ja der Fehler auf der Hand - nur ich finde ihn nich. Deshalb hier der Quelltext...

___________________________________________________________________

#! c:\perl\bin\perl

#Variablen bekommen
$guestbook = "http://amd350/own.htm";
$cgihome = "http://amd350/cgi-bin/own.pl";

read(STDIN,$buffer,$ENV{'CONTENT_LENGHTH'});

@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);

$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s/<!--(.\n)*-->//g;

&no_comments unless $FORM{'beitrag'};
&no_comments unless $FORM{'benutzer'};

open(FILE,"$guestbook") die "Kann nicht oeffnen $guestbook: $!\n";
@LINES=<file>;
close(FILE);
$SIZE=@LINES;

open(GUEST,"$guestbook") die "Kann nicht oeffnen $guestbook: $!\n";

print GUEST "<!--anfang-->\n";
print GUEST "<h1>$FORM{'benutzer'}</h1><br>\n";
print GUEST "<p>$FORM{'beitrag'}</p><br><hr><br>\n";

close(GUEST);

print "Content-Type:text/html\n\n";
print "<html><head><title>Danke!</title></head>\n";
print "<body><h1>Dank DIR!</h1><br><br>\n";
print "lala<br>\n";
print "</body></html>\n";

exit;
}
____________________________________________________________________
*g*

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Perl lokal mit Xitami testen =» script bleibt stecken.

    Rolf r.
    – Informationen zu den Bewertungsregeln

    Hallo,

    $guestbook = "http://amd350/own.htm";
    open(FILE,"$guestbook") die "Kann nicht oeffnen $guestbook: $!

    geht nicht, weil eine Datei die beschrieben werden soll lokal liegen muss.

    z.B.:
    $gb = "/dirx/diry/file";    # das ist ein lokaler Pfad
    open GB, ">$gb" or die $!;  # ">$gb" Datei wird zum Schreiben geöffnet

    Viele Grüße aus Baden, Rolf

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln