#!/usr/bin/perl-w

@array = ('verschiedene ueberschriften');
@_daten = ("");    # Speicher fuer alle Datensaetze

@matrix = (\@array,\@_daten);  #stopf die beiden arrays in ein array

$i = 0;
open(DATEN, "< blubb.txt")   or die "Datei nicht gefunden\n";

while(<DATEN>)              # Kommabegrenzte Datei einlesen
 {
  if($i == 0)                  # erste Zeile der Datei einlesen
   {
    $Felder = $_;              # Feldnamen ermitteln
   }
  else
   {
    $_daten[$i] = $_;        # ab zweiter Zeile in @Adressen einlesen
   }
 $i++;                        # Datensatzaehler erhoehen
 }
close(DATEN);
$Anzahl = $i - 1;              # Anzahl Datensaetze merken
chop($Felder);


for (@matrix)
{
$_ =~ s/\s//g for(@matrix);
}

print "@{$matrix[0]}\n";
print "@{$matrix[1]}\n";


open(NEUEDATEN,">neuedaten.txt");

open(NEUEDATEN,"<neuedaten.txt");

print NEUEDATEN "";
close (NEUEDATEN);
#print $Anzahl, "Datensaetze geschrieben\n";

while (<DATA>) {
        if ($.==1) {
                # Something
        }
        else {
                unless (/^\s*$/) {
                        $matrix[1][$i++]=$_;
                }
        }
}

#!/usr/bin/perl

use strict;
use warnings;

my $file = 'blubb.txt';

open(my $fh,"<",$file) or die $!;
my @daten = <$fh>;
close $fh;

chomp @daten;

for(@daten){
  s/\s//g;
}

my $neue_datei = 'test.txt';
open(my $w_fh,">",$neue_datei) or die $!;
print $w_fh $_,"\n" for(@daten);
close $w_fh;

print scalar(@daten)," Datensätze verarbeitet\n";