nicht angemeldet
Hallo!
Ich habe da zwei Subroutinen, die nicht so richtig funktionieren wollen. Bestimmt nur kleine Fehler, aber ich komme nicht drauf.
Erste:
sub var {
my %p = ();
$p{$_} = param($_) for (param());
return($p{$_});
}
Subroutine soll Daten aus Formular auslesen und dann diese zur Verfügung stellen. Ohne die Subroutine funktioniert es problemlos (return ist dabei dann weggelassen) . Würde es aber gerne in eine Routine mit dem Aufruf var(); packen, da es Zeit spart.
Zweite:
sub ausgabe($)
{
print "Content-Type: text/html\n\n";
my $html = get("$p{'shift'}");
for ($html) { s/<%%(.+?)%%>/$p{$1}/egs; }
return($html);
}
...
print ausgabe("nextpage");
Leider will die auch nicht so recht.
Vielleicht weiss jemand weiter.
Danke!