Thread Files verschieben und kopieren (5 answers)
Opened by epsodus at 2014-03-28 14:04

guest ert
 2014-03-29 11:12
#174480 #174480
die { klammern sollten geschlossen } werden. ich glaube nicht das das so funktioniert.

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
 #!/usr/bin/perl

use strict;
use warnings;

my $verz="c:/Test";


sub verarbeite {
    my ($name, $dir, $glob) = @_;

    my @files = glob("$dir/$glob");

    my $outdir="$dir/Ergebnis";
    my $outfile="$outdir/$name";

    if( @files ) {

       unless(-d $outdir) {
         mkdir($outdir) or die("Error mkdir $outdir : $!");
       }

        open( my $fh, '>', $outfile) or die("Error open $outfile : $!");
        
        for my $file (@files) {
            print "Searching $file\n";

            # ...

        }

        close($fh);

    }
}

verarbeite("Import", $verz, "*.csv");

Last edited: 2014-03-29 11:21:38 +0100 (CET)

View full thread Files verschieben und kopieren