#!/usr/bin/perl

use strict;
use warnings;

use File::Util;

# Destination file:
my $outFile = "out_fileutil.ffn";

# For-loop counter:
my $i = 0;

# File-Util-Objekt erzeugen:
my $fu = File::Util->new();

# Directory which includes files:
my $sourceDir = '../Perl/Test';


# Directory gets read out (only ".ffn" files) and contents will be sorted and written to an array:
opendir(my $sourceDH, $sourceDir) or die $!;

# Das Verzeichnis wird ausgelesen (hier: nur .txt-Dateien) und der Inhalt wird in ein Array geschrieben:
my @allfiles = grep /\.ffn$/, $fu->list_dir($sourceDir, qw(--files-only --recurse));

#my @allfiles = grep /\.ffn$/, sort readdir($sourceDH);
closedir $sourceDH;

###########################################################################


# Opens destination file to read out:
open my $outFH, ">>", $outFile or die $!;


# Loop over all files in the array:
for my $sourceFile (@allfiles) {
    
    # One file gets opened to get read out:
    open my $sourceFH, "<", $sourceDir . '/' . $sourceFile or die $!;
        
    my $NameReadIn = <$sourceFH>; 
    
        close $sourceFH;