fixe Stringlänge in PERL

[Stefan Muenz]

Hallo Edmund,

Wie kann ich einer Variablen in Perl eine fixe Länge aufzwingen?
Z.B. ist die Variable länger als 8 Zeichen, soll sie abgeschnitten werden. Ist sie kürzer als 8 Zeichen, dann sollen zusätzliche Leerzeichen eingefügt werden.

sub Mach8
{
$String = $_[0];
if(length($String) > 8) {
   $String = substr($String,0,7);
}
elsif(length($String) < 8) {
   for($i = length($String); $i < 8; $i++) {
      $String = $String." ";
   }    
}
return $String;
}

Aufgerufen werden kann diese Sub-Routine dann:

$Test1 = Mach8("wenig");
$Test2 = Mach8("sehrviel");
$Test3 = Mach8("vielzuviel");

Das ist jetzt einfach aus'm Bauch raus geschrieben, koennen also Fehler drin sein.

viele Gruesse
  Stefan Muenz