Thread Daten auslesen und mit Hash in andere Datei eintragen lassen (14 answers)
Opened by J0ke at 2016-04-14 10:27

J0ke
 2016-04-14 14:10
#184448 #184448
User since
2016-01-21
16 articles
BenutzerIn
[default_avatar]
Hab jetzt noch einiges verändert.
Wie findet ihr das hier?

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
use 5.010;
use strict;
use warnings;
use DBI;
use Data::Dumper;

my $druck = 'Druckerkontrolle.csv';
my $txt ='Druckerk.txt';
my %studio=();

open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!";
while (my $line = <DATEI>) {
        chomp($line);
        my @zeile= split ';', $line;
        $studio{$zeile[0]}{studioname}=$zeile[1];
        $studio{$zeile[0]}{pass1}=$zeile[2];
        $studio{$zeile[0]}{pass2}=$zeile[3];
        $studio{$zeile[0]}{beauty}=$zeile[4];
        $studio{$zeile[0]}{andere}=$zeile[5];
}
close DATEI;

open (TXT,'>',"$txt") or die "Datei kontte nicht geoeffnet werden: $!";
print TXT Dumper(\%studio)."\n";
close TXT;

Könnte natürlich noch kompakter werden, aber da ich noch in den Anfängen bin und auch selber noch verstehen will, was ich da mache, bleibt das erstmal so :)
Last edited: 2016-04-14 14:12:41 +0200 (CEST)

View full thread Daten auslesen und mit Hash in andere Datei eintragen lassen