|< 1 2 >| | 13 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12
... $sid = "aus Formulardaten empfangen"; ... $my $html; { local $/ = undef; open FILE, "< $htmlfilename" or die $!; $html = <FILE>; close FILE; } $html =~ s/%sid%/$sid/g; print $html; ...
1
2
3
4
5
6
7
8
use vars qw($idnum);
sub unique
{
my $remote_addr = sprintf '%02X%02X%02X%02X', (split /\./, $ENV{'REMOTE_ADDR'});
unless(++$idnum < 0x10000) { sleep 1; $idnum = 0; }
return sprintf '%012X.%s.%08X.%04X', time, $remote_addr, $$, $idnum;
}
Quotedann lege ich eine datei mit dem namen an
|< 1 2 >| | 13 Einträge, 2 Seiten |