#! /usr/bin/perl
use strict;
use warnings;
use diagnostics;

my %hash = ();
my @files = <./Pfad/*.init>;
# für jede .init-Datei
foreach my $file(@files){
  open(FILE,"<$file") or print $!;
  my $ersteZeile = <FILE>;
  close FILE;
  my @local_array = split(/,/,$ersteZeile);
  $hash{$file} = [@local_array];
}

#schreibe die Ergebnisdatei
open(WRITE,">ergebnis.txt") or print $!;
foreach(sort(keys(%hash))){
  print WRITE $_," hat folgende Werte:\t@{$hash{$_}}\n";
}
close WRITE;

#!/usr/bin/perl

use warnings;
use strict;

my $Verzeichnis = "d:\\MeinTest\\";

opendir(DIR, $Verzeichnis) or die $!;
my @files = readdir(DIR);
closedir(DIR) or die $!;

open(AUS, ">Ergebnisse.txt") or die $!;

foreach (@files) {
   if ($_ =~ /init$/) {
      my $file = $_;
      open(FIL, $Verzeichnis.'/'.$_) or die $!;
      while(<FIL>) {
         print AUS "Dateiname: $file hat folgende Werte als Inhalt: $_";
      } # while
   } # if
   close(FIL);
} # foreach

close(AUS) or die $!;

print "\nFertig.\n";

1;