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 10:27
#184442 #184442
User since
2016-01-21
16 Artikel
BenutzerIn
[default_avatar]
Moin ich bin gerade dabei ein Script zu schreiben, mit dem ich aus .csv-Dateien spezielle Informationen auslesen und in eine .txt-Datei schreiben lassen kann.
(Es handelt sich hierbei um Daten von Druckerkontrollen einiger Standorte)

hier der Code
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 5.010;
use strict;
use warnings;
use DBI;

my $druck = 'Druckerkontrolle.csv';
my $txt ='Druckerk.txt';
my %rolle;

open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!";
while (<DATEI>){
        %rolle = split m/;/, <DATEI>,7;
        for my $entry ( sort keys %rolle ) {
                        foreach (%rolle){print "$_ ";}
        }
}
close DATEI;

open (TXT,'>',"$txt") or die "Datei kontte nicht geoeffnet werden: $!";
print "\n\n:)\n";
for my $entry ( sort keys %rolle ) {
        foreach (%rolle){print TXT "$_ ";}
}
close TXT;


Der Inhalt der .csv-Datei sieht ungefähr so aus:
100;StandortXX;6146;10459;10915;2083
102;StandortXX;4049;9088;12060;-
104;StandortXX;8257;18057;10557;12222
105;StandortXX;4548;7626;10562;-
106;StandortXX;13034;26450;9596;-

Als Ausgabe hätte ich gerne:

100 StandortXX 6146 10459 10915 2083
102 StandortXX ....
etc

Problem:
Ausgabe ist komplett wirr UND in die .txt Datei wird nix geschireben..

Danke im Vorraus :)

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