#!/usr/bin/perl

use warnings;
use strict;


my @data;
my $columns   = 5;

open(FH,"<blubber.txt") or die $!;  #oeffnen der datei
while(my $line = <FH>) 
{  
  chomp $line;             #entfernt \n
  my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)]; 
# splitet nach taps, leerzeichen und backslash

  foreach (@array) 
{
      s/^\s+/;/g; # fuehrende und
      s/\s+$/;/g; # abschliessende Blanks (beides entfernen und durch ";" ersetzen)
  } # foreach

  push(@data,[@array]);
} # while

close (FH);

my $format = '';

for my $i(0..scalar(@{$data[0]})-1)
{                 #hier wird das format festgelegtund linksbuendig
  my $max = find_longest(map{$_->[$i]}@data);
  $format .= '%-'.$max.'s ';
}

for my $entry(@data)
{
  print sprintf($format . "<<\n",@$entry);
}

sub find_longest
{     # hier wird der laengste inhalt des feldes berechnet
  my $longest = 0;
  for(@_){
      my $length = length($_);
      $longest = $length if($length > $longest);
  }

  return $longest;
}

open(FH, "<blubber.txt") or die "Fehler beim oeffnen/anlegen: $!";
open(OUTDATEN, ">ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";

while(<FH>)
{
print OUTDATEN @data;
}
close (OUTDATEN)or die $!;
close (FH)or die $!;

open(OUTDATEN, ">ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";

open(OUTDATEN, "+>", "ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";

open(OUTDATEN, ">ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";

open(OUTDATEN, "+>", "ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";

#!/usr/bin/perl

use warnings;
use strict;


my @data;
my $columns   = 5;

open(FH,"<blubber.txt") or die $!;  #oeffnen der datei
while(my $line = <FH>)
{  
   chomp $line;             #entfernt \n
   my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)];
# splitet nach taps, leerzeichen und backslash

   foreach (@array)
   {
       s/^\s+/;/g; # fuehrende und
       s/\s+$/;/g; # abschliessende Blanks (beides entfernen und durch ";" ersetzen)
   } # foreach

   push(@data,[@array]);
} # while

close (FH);

my $format = '';

for my $i(0..scalar(@{$data[0]})-1)
{                 #hier wird das format festgelegtund linksbuendig
   my $max = find_longest(map{$_->[$i]}@data);
   $format .= '%-'.$max.'s ';
}

# Ich verwende einen Skalar als Filehandle,
# Du kannst aber statt $out_fh auch OUTDATEN
# schreiben
open(my $out_fh,'>','Ziel.txt') or die $!;
for my $entry(@data)
{
   print sprintf($format . "<<\n",@$entry); # Ausgabe auf Bildschirm
   print $out_fh sprintf($format . "<<\n",@$entry); # Ausgabe in Datei
}
close $out_fh or die $!;

sub find_longest
{     # hier wird der laengste inhalt des feldes berechnet
   my $longest = 0;
   for(@_){
       my $length = length($_);
       $longest = $length if($length > $longest);
   }

   return $longest;
}

 
open(FH, "<blubber.txt") or die "Fehler beim oeffnen/anlegen: $!";
open(OUTDATEN, ">ZIEL.txt") or die "Fehler beim oeffnen/anlegen: $!";
for my $entry(@data)
{
print OUTDATEN sprintf($format . "<<\n",@$entry);  #ausgabe in datei
 }
close (OUTDATEN)or die $!;
close (FH)or die $!;