Leser: 1
|  | |< 1 2 3 4 >| |  | 34 Einträge, 4 Seiten | 
1
2
3
4
5
print cgi->header(-type => 'text/html',
-expires => '+5s',
-charset => 'ISO-8859-1',
%hash
);
 Wie frage ich & perlintro
Wie frage ich & perlintro  brian's Leitfaden für jedes Perl-Problem
brian's Leitfaden für jedes Perl-Problem1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub tmpl {
   my $usrid = get_my_userid();
   my $text;
   local $/;
   local *D;
   my ($dat, $hashref) = @_;
   open(D, $_[0]) || die $!;
      $text = <D>;
   close(D);
   $hashref->{sid} = $sessionid unless $hashref->{sid};
   $hashref->{username} = $usrid;
   chop($text);
   $text =~ s{ %% ( .*? ) %% }
      { exists( $hashref->{$1} )
         ? $hashref->{$1}
         : ""
      }gsex;
   return "Content-Type: text/html\n\n$text" if $hashref->{header} == 1;
   return $text;
}
print tmpl('/usr/local.../index.html', {header => 1});1
2
3
4
5
6
7
get http://try2flirt.gotdns.com -Sse
GET http://try2flirt.gotdns.com --> 200 Assumed OK
Client-Date: Tue, 16 Mar 2004 01:32:20 GMT
Client-Peer: 82.82.126.178:80
Client-Response-Num: 1
Content-Type: text/html
|  | |< 1 2 3 4 >| |  | 34 Einträge, 4 Seiten |