Thread 2 Dateien gleichzeitig bearbeiten (8 answers)
Opened by Henri at 2015-09-01 12:22

Gast Henri
 2015-09-01 12:22
#182001 #182001
Hallo an alle, ich habe eine Frage, besitze ich ein Skript, das einige meiner Aufgabe erledigt, weiß ich nicht, ob jemand hier könnte mir helfen:

wenn Sie das folgende Skript auf dem data.csv auszuführen gibt er uns die folgende Output-Dateien:

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

    use strict;
    use warnings;
    use Text::CSV;
    my $csv = Text::CSV->new;
    open my $csv_file, "<", "DATA.csv" or die "Can't open CSV file: $!\n";
    while (my $row = $csv->getline($csv_file)) {
        my($significator_and_file) = clean($row->[0]);
        my ($significator, $file) = split /\s+/, $significator_and_file;
        next unless $significator and $significator eq 'false';
        open (my $per_line_fh, ">", "$file.csv" ) or die "Can't open per-line file $file: $!\n";
        shift @$row;
        print $per_line_fh "$file:\n";
        for my $i(map {clean($_)} @$row) {       
            my $d = "$i\n";
            print $per_line_fh $d if ($i);
        }
        close $per_line_fh;
    }
    sub clean {   
       my $string = shift;
        $string =~ /\s*,\s*/;
        $string =~ s/\s+$//;
        return $string;
    }


__________________________DATA.csv________________________________________

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
20150714 00:08:49                  
              false,    false,     false,      false,      true,       true,

     default, ame_a,    ame_m,      ame_uc,     ame_f,   ams_l,  enced_affi,

 true DPA01,   fault,    fault,       fault,      fault,    fault,       1,

false DPA02,       ,        ,            ,            ,     fault,       1,

false DPA03,  fault,    fault,          olt,     fault,     fault,       1,

false DPA04,  fault,        at,        fault,         2,    fault,       1,



gibt er mir alle Zeile mit "false" davor

Code: (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
_____________DPA02_____________
DPA02                
ame_a                  
ame_m                
ame_uc              
ame_f                  
ams_l             fault        
enced_affi            1            
 
_____________DPA03_____________
DPA03:
ame_a             fault  
ame_m             fault
ame_uc              olt
ame_f             fault
ams_l             fault
enced_affi            1
 
 
_____________DPA04_____________
DPA04:
ame_a             fault  
ame_m                at
ame_uc            fault
ame_f                 2
ams_l             fault
enced_affi            1


Jetzt möchte ich gern dass das Script mir auch die folgende Datei zusammen bearbeiten

__________________________VALUE.csv___________________________________
Code: (dl )
1
2
3
20150616 22:16:09
default,  ame_a,     ame_m,      ame_uc,     ame_f,    ams_l, enced_affi,
default,  fault,     fault,      fault,      fault,    fault,     1,


an Ende bekomme ich ähnliche Output Dateien:

Code: (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
____________DPA02_____________
default:                DPA02:
ame_a       fault        
ame_m       fault       
ame_uc      fault       
ame_f       fault       
ams_l       fault       fault
enced_affi  1           1


_____________DPA03_____________
default:                DPA03:
ame_a       fault       fault 
ame_m       fault       fault
ame_uc      fault       olt
ame_f       fault       fault
ams_l       fault       fault
enced_affi  1           1




 _____________DPA04_____________
   default:                DPA04:
   ame_a       fault       fault 
   ame_m       fault       at
   ame_uc      fault       fault
   ame_f       fault       2
   ams_l       fault       fault
   enced_affi  1           1

Last edited: 2015-09-01 12:25:54 +0200 (CEST)

View full thread 2 Dateien gleichzeitig bearbeiten