Thread Files nach bestimmten Schema schreiben (4 answers)
Opened by Gast at 2008-06-18 14:15

Gast Gast
 2008-06-18 23:29
#111248 #111248
Ups, hat ich wohl vergessen das glob zusetzten :( Is ja peinlich...

Ehm , ich habs mal verbessert. Aber das Problem besteht immernoch. Er schreibt NUR 1mal :(

Hier der jetzige Testcode:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

#!/usr/bin/perl

$komma = rand(9999999);
$random = int($komma);

foreach $file (glob("files/*.txt"))
{
push(@found,$file);
}


if (!-d "suche/1")
{
mkdir("suche/1");
}


foreach $found (@found)
{
        $dir = 0;
        foreach $a (glob("suche/*"))
        {
                $dir++;
        }
                $files = 0;
                foreach $b (glob("suche/$dir/*.txt"))
                {
                        $files++;
                }
                        if ($files =~ 5)
                        {
                                $dir++;
                                mkdir("suche/$dir");
                                open(WRITE,'>',"suche/$dir/$random.txt") or die "Fehler $!";
                                print WRITE "TESTFILE";
                                close (WRITE);
                        }
                        else
                        {
                                open(WRITE,'>',"suche/$dir/$random.txt") or die "Fehler $!";
                                print WRITE "TESTFILE";
                                close (WRITE);
                        }


}



print "Found : ","@found","\n";
print "Ordner : ","$dir","\n";
print "Datei : ","$files","\n";


@renee : Wie würdest du es lösen? Ich meine weil du meintest das es "umständlich" ist.

Mit freundlichem Gruß

View full thread Files nach bestimmten Schema schreiben