Thread For schleife für mehrere Ausgabedateien (2 answers)
Opened by Henri at 2015-10-27 12:34

GwenDragon
 2015-10-27 12:44
#182719 #182719
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
Kurz überflogen und ungetestet:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for my $k ( keys %{$data} ) {
    if ( open( $fhout, '>', "$k.csv" ) ) {
        print $fhout "----$k----\n";    # name der Ausgabe Dateien
        print $fhout "$k: $param->{$k}\n"
          ;  # Name und entsprechende Parameter werde in die Datei geschrieben
        for my $i ( 0 .. $#{ $data->{$k} } ) {
            if ( $param->{$k} ne $data->{$k}->[$i]->[1] ) {
                #Daten werden in die Datei geschrieben
                print $fhout "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n";   
            }
        }
    }
    else {
        warn "FEHLER ($!) bei Datei $k.csv";
    }
}
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread For schleife für mehrere Ausgabedateien