Sabrina;Gehring;BLUBB;ge3fr;32 016

Sabrina;Gehring;BLUBB;ge3fr;32 016;50

Sabrina;Gehring;BLUBB;ge3fr;32016;50

dies ist ein Test 32 160
noch ein anderer Test 160
name einer anderen Datei 2 389

while(my $line = <$fh>){
    my @data = split(/\s/,$line,5);
    print $data[4];
}

my $zahl = 0.5341278954723645728364;
my $zahl_3_nachkommastellen = sprintf("%.3f",$zahl);

Sabrina;Gehring;BLUBB;ge3fr;32 016

#!/usr/bin/perl

use warnings;
use strict;

my @data;

open(FH,"<BLUBBER.txt") or die $!;              
while(my $line = <FH>) {              
    chomp $line;
    my @array = (split(/;/,$line));  
    $array[-1]  =~  tr/0xa0 //;
    $array[-1] /= 1024;

    if ($line =~/\bBLUBB|SAND?\b/ and $line !~/\bMUSCHEL\b/){
        push(@data,[@array]);
    } # if
} # while
close (FH);

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

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

open(OUTDATEN,">ZIEL.txt") or die $!;
for my $entry(@data){
    print OUTDATEN join(';',@$entry),"50"," ";
}
close (OUTDATEN) or die $!;


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

dies ist ein Test 32 160
noch ein anderer Test 160
name einer anderen Datei 2 389

  1     2      3      4   5  6
name einer anderen Datei 2 389

Sabrina Gehring BLUBBER ge3fr 32 016