#!/usr/bin/perl

use warnings;
use strict;

while(<DATA>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei

   chomp;

   my @array = ();
   @array    = split(/;/); # $_ ist standard

   foreach (@array) {
      s%^\s+%%g; # fuehrende und
      s%\s+$%%g; # abschliessende Blanks entfernen
   } # foreach

   print left($array[0],20).left($array[1],20).left($array[2],20), "\n";

   # und zum Beweis das die Leerstellen weg sind
   # print "BEWEIS\n";
   # print "$array[0];$array[1];$array[2]\n";

} # while

1;

sub left {
   my $r = $_[0];
   while(length($r) < $_[1]) {$r.=' '}
   $r;
} # left

__DATA__
Nachname;  Vorname;  Domain\Benutzername;size;85;5.7.2006;;16:36;5.7.2006;;16:36;;
Mustermann;  Max;  domain\name
Maier;  Michi;  domainmaier\michi
Mueller;  Margit  ;domain\margit

perldoc -f sprintf

#!/usr/bin/perl

use warnings;
use strict;

my @data;

while(<DATA>) {  # alles was unten in __DATA__ steht symbolisiert eine Datei

  chomp;

  my @array = ();
  @array    = split(/;/); # $_ ist standard

  foreach (@array) {
     s%^\s+%%g; # fuehrende und
     s%\s+$%%g; # abschliessende Blanks entfernen
  } # foreach
  
  push(@data,[@array[0..2]]);

} # while


my $len_vorname = find_longest(map{$_->[0]}@data);
my $len_nachname = find_longest(map{$_->[1]}@data);
my $len_domain = find_longest(map{$_->[2]}@data);

for my $entry(@data){
 print sprintf("%-*s %-*s %-*s<<\n",$len_vorname,$entry->[0],
                                   $len_nachname,$entry->[1],
                                   $len_domain,$entry->[2]);
}

sub find_longest{
 my $longest = 0;
 for(@_){
   my $length = length($_);
   $longest = $length if($length > $longest);
 }
 
 return $longest;
}


__DATA__
Nachname;  Vorname;  Domain\Benutzername;size;85;5.7.2006;;16:36;5.7.2006;;16:36;;
Mustermann;  Max;  domain\name
Maier;  Michi;  domainmaier\michi
Mueller;  Margit  ;domain\margit