wie übergebe ich sessionIDs - #8327 (Perl/CGI)

steffenw

2003-10-29 21:21

User since
2003-08-15
692 Artikel
BenutzerIn

Machst Du es zu Fuß, sieht es etwa so aus:
HTML
[code]
...
<input type="hidden" name="sid" value="%sid%">
...
[code]
PERL

Code (perl): (dl )

...
$sid = "aus Formulardaten empfangen";
...
$my $html;
{ local $/ = undef;
  open FILE, "< $htmlfilename" or die $!;
  $html = <FILE>;
  close FILE;
}
$html =~ s/%sid%/$sid/g;
print $html;
...

$SIG{USER} = sub {love 'Perl' or die};