Daten auslesen und mit Hash in andere Datei eintragen lassen (gelöst) (Allgemeines zu Perl)

[thread]20049[/thread]

Daten auslesen und mit Hash in andere Datei eintragen lassen [gelöst]

Tags: perl5 hash open Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+15 replies
J0ke

2016-04-14 10:27
User since
2016-01-21
16 Artikel
BenutzerIn
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 :)
- +2 replies
- MarkusH
  
  2016-04-14 10:53
  User since
  2012-04-08
  162 Artikel
  BenutzerIn
  So wie ich das sehe, willst Du eigentlich nur das Semikolon durch ein Leerzeichen ersetzen. Wozu brauchst Du da einen Hash? Hast Du da noch was anderes mit den Daten vor?
  
  Dass die Ausgabe wirr ist glaub ich.
  Die Zeile
  
  Code (perl): (dl )
  
  %rolle = split m/;/, <DATEI>,7;
  
  macht nicht das was Du willst!
  $q =~ /(bb|[^b]{2})/
  - J0ke
    
    2016-04-14 12:40
    
    User since
    2016-01-21
    16 Artikel
    BenutzerIn
    
    Nachträglich wird das alles noch in MySQL eingelesen, dazu komme ich aber erst in der nächsten Woche ;)
- +2 replies
- Raubtier
  
  2016-04-14 10:55
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  Verstehe ich es richtig von deinem Beispiel, dass du einfach die die Semikola entfernen willst? Aber was hat das mit einem Hash zu tun?
  
  Ansonsten zum Code:
  
  Code (perl): (dl )
  
  open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!";
  
  Es spricht nicht gegen Variablen für Datei-Handles, also open my $dateihandle, "<", $dateiname or die... statt ein globales "DATEI" zu verwenden.
  
  Und das hier:
  
  Code (perl): (dl )
  
  %rolle = split m/;/, <DATEI>,7;
  
  ist sehr fragwürdig.
  
  Du bekommst also einen Hash
  ("100" => "StandortXX", "6146" => "10459", "10915 => 2083")
  
  Und bei der 7? Eine ungerade Zahl bei einem Hash kann nicht sinnvoll sein!
  
  Und auch schlecht:
  
  Code (perl): (dl )
  
  1 2 3
  
  while (<DATEI>) { tu was mit <DATEI> }
  
  Denn dann überspringst du jede 2. Zeile.
  
  Besser:
  
  Code (perl): (dl )
  
  1 2 3
  
  while (my $line = <$datei>) { tu was mit $line; }
  - clms
    
    2016-04-14 11:36
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    2016-04-14T08:55:58 Raubtier
    Und auch schlecht:
    
    Code (perl): (dl )
    
    1 2 3
    
    while (<DATEI>) { tu was mit <DATEI> }
    
    Denn dann überspringst du jede 2. Zeile.
    
    Nicht, wenn Du - wie hier - innerhalb der Schleife <DATEI> im List-Kontext aufrufst. Dann überspringst Du nur die erste Zeile, weil die whlie-"Schleife" nur einmal durchlaufen wird.
- clms
  
  2016-04-14 11:31
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Hallo,
  
  vorab drei Tipps:
  
  nutze lexikalische Filehandles open (my $datei,'<',$druck) ... <$datei> ...
  verwende die 3-Argumenten-Form von open (s.o.) durchgängig
  für das Einlesen der CSV-Datei gibt es spezialisierte Module (z.B. Text::CSV). Verwende eins, denn das kümmert sich um Escapes und andere Sonderfälle, an die Du nicht denkst. Selbst wenn Du momentan mit Deinem einfachen split klar kommst, mit solch einem Modul bist Du auf der sicheren Seite. Welches Modul das beste für Deinen Zweck ist, kann ich Dir aus eigener Erfahrung nicht sagen, aber da gibt es hier im Forum ausreichend Tipps und Expertise
  
  Dann zu Deinen eigentlichen Problemen:
  Zeile 11: <DATEI> wird hier im skalaren Kontext ausgewertet, d.h. eine Zeile aus der Datei wird ausgelesen - und weggeworfen, weil Du das Ergebnis nicht speicherst. Du willst hier while (my $line = <$datei>) {...}
  
  Zeile 12:
  Da überschreibst Du für jeden Schleifendurchlauf den kompletten Hash %rolle. Beim Code für die Ausgabe ab Zeile 19 kommen also nur die Werte an, die Du im letzten Schleifendurchlauf ausgelesen hast.
  Mit %rolle = split m/;/, $line,7; wäre das die letzte Zeile - und die extrem verhackstückt, denn split spaltet die Zeile in eine Liste der einzelnen Felder auf und die wird dann in einen Hash gewandelt, nach dem Muster (key0, value0, key1, value1,...) Du bekommst dann z.B.
  
  Code (perl): (dl )
  
  1 2 3
  
  %rolle = (102 => 'StandortXX', 4049 => 9088, 12060 => -);
  
  d.h. 102, 4049 und 12060 sind Keys.
  
  Aber halt, Du verwendest in der Argumentenliste von split taucht bei Dir <DATEI> auf. D.h. das wird im List-Kontext ausgewertet. Dann werden alle verbleibenen Zeilen auf einen Schlag ausgelsene und als Argumente von split verwendet. D.h. nur die 2. Zeile Deiner Eingabedatei wird gesplittet (die 1. hast Du ja schon beim while weggeworfen), die 3. wird als Limit für split verwendet und der Rest wird wieder weggeworfen. Deine While-Schleife wird auch nur einmal durchlaufen.
- +9 replies
- J0ke
  
  2016-04-14 14:10
  User since
  2016-01-21
  16 Artikel
  BenutzerIn
  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)
  - +8 replies
  - Raubtier
    
    2016-04-14 14:54
    User since
    2012-05-04
    1083 Artikel
    BenutzerIn
    
    2016-04-14T12:10:22 J0ke
    Hab jetzt noch einiges verändert.
    Wie findet ihr das hier?
    
    Code (perl): (dl )
    
    1 2
    
    open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!"; while (my $line = <DATEI>) {
    
    Gegenvorschlag:
    
    Code (perl): (dl )
    
    1 2
    
    open (my $DATEI, "<", $druck) or die "Datei konnte nicht geoeffnet werden: $!"; while (my $line = <$DATEI>) {
    
    Vielleicht die Variable auch noch besser benennen, z.B. $csvFH oder wie auch immer. Muss/sollte auch nicht in all-caps sein.
    
    Quote
    
    Code (perl): (dl )
    
    my @zeile= split ';', $line;
    
    Ich würde die Variable besser @cols nennen - es sind ja Spalten. Und weißt du sicher, dass keine Semikolon in den Datenfeldern vorkommen?
    
    Quote
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    $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]; }
    
    Du könntest hier lokal den Hash einmal erzeugen und dann 1x in in %studio einfügen.
    
    Code (perl): (dl )
    
    1 2 3
    
    my %rowHash; @rowHash{qw(studioname pass1 pass2 beauty andere)} = @cols[1..5]; $studio{$cols[0]} = \%rowHash;
    
    oder explizit:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    $studio{$cols[0]} = { studioname => $cols[1], pass1 => $cols[2], pass2 => $cols[3], beauty => $cols[4], andere => $cols[5], };
    
    Beim Schreiben am Ende dann wieder der Hinweis auf lexikalische Dateihandles.
    Last edited: 2016-04-14 14:57:36 +0200 (CEST)
    - +7 replies
    - J0ke
      
      2016-04-14 16:47
      
      User since
      2016-01-21
      16 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2
      
      open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!"; while (my $line = <DATEI>) {
      
      [/quote]
      
      Quote
      Gegenvorschlag:
      
      Code (perl): (dl )
      
      1 2
      
      open (my $DATEI, "<", $druck) or die "Datei konnte nicht geoeffnet werden: $!"; while (my $line = <$DATEI>) {
      
      Wenn ich dort kein Zeichen hinschreibe (also kein </>) dann ist doch von Grund auf eh nur die Lese-Berechtigung "eingeschaltet" oder nicht?
      
      Quote
      Und weißt du sicher, dass keine Semikolon in den Datenfeldern vorkommen?
      
      Ja, die csv-Dateien wurden aus Excel-Tabellen formatiert (wodurch ja die Semikolon entstehen.
      
      Ich schaue mir das nochmal an, Danke :)
      - MarkusH
        
        2016-04-14 17:02
        
        User since
        2012-04-08
        162 Artikel
        BenutzerIn
        
        2016-04-14T14:47:26 J0ke
        
        Code (perl): (dl )
        
        Quote
        Und weißt du sicher, dass keine Semikolon in den Datenfeldern vorkommen?
        
        Ja, die csv-Dateien wurden aus Excel-Tabellen formatiert (wodurch ja die Semikolon entstehen.
        
        Damit war gemeint, ob innerhalb von Deinen Datenfeldern kein Semikolon vorkommen kann.
        Banales Beispiel: Stand;ortXX
        $q =~ /(bb|[^b]{2})/
      - clms
        
        2016-04-14 17:34
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        2016-04-14T14:47:26 J0ke
        Quote
        Gegenvorschlag:
        
        Code (perl): (dl )
        
        1 2
        
        open (my $DATEI, "<", $druck) or die "Datei konnte nicht geoeffnet werden: $!"; while (my $line = <$DATEI>) {
        
        Wenn ich dort kein Zeichen hinschreibe (also kein </>) dann ist doch von Grund auf eh nur die Lese-Berechtigung "eingeschaltet" oder nicht?
        
        Wenn Du da kein Zeichen hinschreibst, hast Du die 2-Argument-Variante open(my $datei, $druck). Da hängt es dann ganz vom Inhalt von $druck ab, was passiert. Wenn das nur ein Filename ist, wird die Datei in der Tat nur lesend geöffnet. Bei anderem Inhalt kannst Du aber auch die Datei schreibend öffen - oder Shell-Kommandos ausführen und z.B. Deine Festplatte formatieren.
      - +2 replies
      - Raubtier
        
        2016-04-14 17:35
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        2016-04-14T14:47:26 J0ke
        Wenn ich dort kein Zeichen hinschreibe (also kein </>) dann ist doch von Grund auf eh nur die Lese-Berechtigung "eingeschaltet" oder nicht?
        
        Richtig, "wenn". Das erkennt man an der Stelle aber nicht, weil man dazu wissen muss, was in $druck steht. Gut, hier hast du $druck selbst unter Kontrolle und auf 'Druckerkontrolle.csv' gesetzt, aber was, wenn du das zum Beispiel mal konfigurierbar machen willst, zum Beispiel über Kommandozeilenargumente? Wenn jemand versucht, eine Datei mit dem Namen ">x" zu lesen, wird stattdessen die Datei mit dem Namen "x" überschrieben. Daher ist die 3-Argument-Form generell besser und klarer - mit ihr gibt es keine Überraschungen.
        
        J0ke
        
        2016-04-15 08:58
        
        User since
        2016-01-21
        16 Artikel
        BenutzerIn
        
        Okay gut..
        Daran hab ich nicht gedacht..
        Danke :)
      - Linuxer
        
        2016-04-14 17:36
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Und irgendwann wird die Variable mit dem Dateinamen nicht im Skript definiert, sondern von außerhalb befüllt (aus Config-Datei oder sonstwie gelesenen Dateien oder aus einer Benutzereingabe).
        
        Und plötzlich steht in der Variable ein > $ENV{HOME}/.bash_profile oder > /etc/passwd oder ähnlich böses drin.
        
        Wenn dann die Rechte stimmen, ist die Datei erstmal futsch.
        
        Daher hier nicht auf "wird doch sowieso so gemacht" bauen, sondern das "explizit '<' angeben" zur Gewohnheit werden lasssen.
        Einfach angewöhnen, immer die 3-Argument-Form zu benutzen. Gibt dazu auch diverse Artikel:
        
        http://modernperlbooks.com/mt/2010/04/three-arg-op...
        http://www.informit.com/articles/article.aspx?p=15...
        http://perlmaven.com/open-files-in-the-old-way
        http://perlmaven.com/always-use-3-argument-open
        ...
        
        edit: "bauen" nachgetragen
        Last edited: 2016-04-14 22:31:24 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - GwenDragon
        
        2016-04-15 11:29
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Wenn die Variable mit Daten von Außen gefüllt wird, kann das böse enden.
        
        Das kann der Taint-Mode verhindern.
        http://perldoc.perl.org/perlsec.html#SECURITY-MECH...
        http://perlmeme.org/howtos/secure_code/taint.html
        
        Wenn Perl glaubt, dass Inhalte von Außen unsicher sind, meckert es.
        Du musst dann mit Regex o. ä. prüfen, ob die Variable verschmutzt (tainted) ist.
        
        Willst du das nicht machen, dann ist das dein Risiko, je nach Umgebung und Anwendung hat das ungeahnte Folgen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2016-04-14 10:27.