Thread Einlesen mehrerer Dateien (38 answers)
Opened by Alex at 2013-04-23 11:08

String_Test
 2013-04-24 15:21
#167244 #167244
User since
2013-04-23
19 Artikel
BenutzerIn
[default_avatar]
Danke schonmal, leider habe ich subs bisher noch nicht kennengelernt und weiß nicht wie man mit diesen arbeitet :(
Ich habe eben vergessen zu sagen, dass in den Verzeichnissen und Unterverzeichnissen verschiedene Dateitypen vorhanden sind und ich nur die mit der Endung ".ffn" haben möchte :/

Im Internet gab es i.wo einen Ansatz, den versuche ich gerade anzupassen und vollständig zu verstehen (Siehe folgender Code).
Lohnt es sich mit dem Ansatz überhaupt weiterzuarbeiten, weil ich denke, dass deine vorgeschlagene sub deutlich kürzer wäre?

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl 

#use strict;
#use warnings;

my @dir = '../Perl/Test/';
my $ending = '.ffn';

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

my $dir = '';
for $dir (@dir)
{
if (opendir( DIR, $dir))
        {
        for (readdir(DIR)) 
                {
                next if (/^\./);
                push @dir ,"$dir$_/" if (-d "$dir$_");
                &file($dir,$_) if (-f "$dir$_") && $ending eq (/.*(\..*)/)[0];
                }
closedir DIR;

        }

}


Im Vergleich dazu noch aus meinem aktuellen Programm der Code, der alle .ffn Dateien aus einem Ordner einliest:

Code (perl): (dl )
1
2
3

opendir(my $sourceDH, $sourceDir) or die $!;
my @allfiles = grep /\.ffn$/, sort readdir($sourceDH);
closedir $sourceDH;

Last edited: 2013-04-24 15:26:08 +0200 (CEST)

View full thread Einlesen mehrerer Dateien