cgi Daten serverseitig begrenzen?

[g-force]

Hi Beat

Habe mir mal das:

my $maxlenth=1000;
my $clean = '';
$eviluserinput =~ /^(.{0,$maxlength})/ and $cleantext=$1;

und das:

Ich schenke dir eine Funktion, die du kontextgerecht anwenden sollst:

sub htmlchars {

my $s = shift || '';
   $s =~ s/&/&/go;
   $s =~ s/</&lt;/go;
   $s =~ s/>/&gt;/go;
   $s =~ s/"/&quot;/go;
   return $s;
}

>   
  
ausgedruckt. Ich habe so das Gefühl, daß es wichtig ist :-)  
  
Bevor ich jetzt gleich meine Nase in die Perlfibel stecke:  
Der zweite Codeteil - Filtert der da böse Steuerzeichen heraus bzw. schreibt sie um? Sieht nämlich für mich als Perlneuling  und alter Basickenner so ähnlich aus.  
  
Danke an euch beide für eure Antworten.  
  
g-force