Fehler beim Einbinden eines Modules: Ka wieso das so ist - #73648 (Allgemeines zu Perl)

SirLant

2003-08-19 21:31

User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]

Ok, du hast eigentlich recht, aber ich müsste immer WebDB::PseudEcom davor schreiben, da könnt ich auch gleich die Funktionen aus dem anderen namensraum so direkt aufrufen.
Deshalb die Klasse.

Habe aber gerade nen anderes Problem:

Quote
Cant modify non-lvalue subroutine call in concatenation (.) or string at line 194, near ")"

Die besagte Zeile:

Code (perl): (dl )

1
2
3

&#36seite .= p ("Ein Fehler ist aufgetreten.")
       .= p (escapeHTML (&#36text))
       . p ("Zurück zur PseudEcom "  . home_link ("Homepage"));

Es ist die Zeile mit dem aufruf von home_link.
Ich weiß nicht was der Fehler sein soll.
Die Funktion sieht so aus:

Code (perl): (dl )

sub home_link
{
my &#36bez = shift;

    return (create_link (full_url ("index.cgi"), &#36bez));
}

die Unterfunktionen, die dazu noch benötigt werden:

Code (perl): (dl )

sub haupt_url
{
my &#36url_prefix;

    (&#36url_prefix = url ()) =~ s|[^/]*&#36||;
    &#36url_prefix =~ s/^https:/http:/i;    # https -> http
    return (&#36url_prefix);
}
sub full_url
{
my &#36script = shift;

    return (haupt_url () . &#36script);
}
sub create_link
{
my (&#36url, &#36bez) = @_;

    &#36bez = &#36url unless &#36bez;
    return (a ({-href => &#36url}, escapeHTML (&#36bez)));
}

\n\n

--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!