Chat bot

[Reiner]

Hier rufst du die Seite zweimal unmittelbar hintereinander mit dem Spruch auf. Und du vergißt, dass hier die Parameter kodiert werden müssen. Leider finde ich grad kein Modul dafür, ich benutze dazuz immer die (undokumentierte) Funktion CGI::escape().

Ich nutze immer das:

sub escape
        {
                shift() if ref($_[0]);
                my $toencode = shift;
                return undef unless defined($toencode);
                $toencode=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
                return $toencode;
        }

sub unescape
    {
            shift() if ref($_[0]);
            my $todecode = shift;
            return undef unless defined($todecode);
            $todecode =~ tr/+/ /;       # pluses become spaces
            $todecode =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
            return $todecode;
    }

Viele Grüße,
Reiner