Interpretation verhindern

[Siechfred]

Tag bernd.

werd mal checken, ob mein Provider das Modul im Angebot hat- THX so far. Inzwischen ist mir dann doch das Allerschlichteste auch noch eingefallen: Den Code als Kommentar ausgeben- muss man zwar das eben reingebastelte gleich wieder escapen, aber was richtig kurzes scheint es wohl eh nicht zu geben...

Wieso, sowas geht auf jeden Fall:

#!/usr/bin/perl -w  
use strict;  
use warnings;  
use CGI::Carp qw(fatalsToBrowser);  
use CGI;  
  
my @arr = ("<h1>Test</h1>","<h2>Ausgabe</h2>","<p>Testtext</p>");  
my $cgi = new CGI;  
  
$cgi->default_dtd('-//W3C//DTD HTML 4.01 Transitional//EN');  
print $cgi->header(-type    =>'text/html',  
                   -expires =>'+1h'),  
      $cgi->start_html(),  
      $cgi->div(join("<br>", map(ersetze($_),@arr))),  
      $cgi->end_html();  
  
sub ersetze {  
  $_ =~ s/</&lt;/g;  
  return $_;  
}

Quelltext der Ausgabe:

<div>  
  &lt;h1>Test&lt;/h1><br>  
  &lt;h2>Ausgabe&lt;/h2><br>  
  &lt;p>Testtext&lt;/p>  
</div>

So soll es doch sein, oder?

Siechfred