aktuelle url auslesen

[Patrick Andrieu]

Hallo dobra!

<!--spmacro:module(session)
sub test {
  my $out;
              if ((! defined $ENV{HTTP_REFERER}) or ($ENV{HTTP_REFERER} !~ /.meine Adresse)) {
                   my $out = qq | ... |

^^

»my« gehört hier nicht hin, die Deklaration hast Du schon weiter oben gemacht.
»|« als Delimiter für qq, qw, etc... würde ich vermeiden, da es für Pipes bei Programmaufrufen gebraucht wird, z.Beispiel open (MAIL, "|$MailProg ...") oder als »oder« in Regulären Ausdrucken $str =~ s/(foo|bar)/buz/g;

Gibt es eine Möglichkeit mit Perl in der URL das "show" geben "logoffshow" auszutauschen?

Reguläre Ausdrucke war eben das Stichwort:

my $out = "url?show...........";
$out =~ s/show/logoffshow/;

Viele Grüße aus Frankfurt/Main,
Patrick