array aus mehreren array erstellen und in skalar umwandeln (Allgemeines zu Perl)

[thread]20660[/thread]

array aus mehreren array erstellen und in skalar umwandeln

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+19 replies
Gast derPerlwwerker

2019-09-13 20:47
Hallo,

ich habe eine Datei, die wie folgt aussieht:

Attribut1 50 :xyz,xy
Attribut2 Zeit :nv
Attribut3 17:00:00 :nv,oder

Diese Datei lese ich mit folgendem Script ein, splitte die Leerzeichen weg und weise die Daten den arrays Attr, Aalue und Selection zu.
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

sub Test { my $zaehler=0; my $DevAttr; my $anzahl=0; my $count=0; my @Attr; my @Value; my @Selection; my @userAttr; my @test; my $cmd="attr"; my $dev="Rollladensteuerung"; open(DATEI,"d:/perl/DevAttr.txt") or die "Couldn't open file $!";; # oeffne die Datei while (<DATEI>) { # Zeilenwiese / solange noch Daten existieren chop; # schneide LF ab; Zeile in $_ ($Attr[$anzahl],$Value[$anzahl],$Selection[$anzahl++])=split(" ");# teile die Datenfelder wenn Leerzeichen vorkommt } close(DATEI); # schliesse die Datei foreach $DevAttr (@Attr) { # machs fuer alle Datensaetze print "$cmd $dev $Attr[$zaehler] $Value[$zaehler]\n"; $zaehler++; # Index erhoehen } }
Nun möchte ich ein zusätzliches array "userAttr" einrichten, welches den Inhalt der arrays "Attr" und "Selectoin" hat.

Den gesamten Inhalt dieses arrsy möchte ich dann in einem String ausgeben.

Also zb. : $userAttr = "Attribut1:xyz,xy Attribut2:nv ..usw"
Wek kann mir da weiter helfen?
Danke im Voraus

Gruß
Tom
Last edited: 2019-09-13 21:30:38 +0200 (CEST)
- +12 replies
- Muffi
  
  2019-09-13 22:09
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Bei mir gäbs in dem ganzen Programm nur ein einziges Array. Und da drin ist pro Zeile ein Hash (bzw. eine Hashreferenz).
  
  Und dann gibts noch eine Funktion, die aus so einer Hash-Zeile eine userAttr Rückgabe machen kann.
  
  Gewöhn dir diese Fledder-Arrays ab, die sich scheinbar zusammenhangslos übers Programm verteilen, aber dennoch alle synchron gehalten werden müssen.
  
  Kleines Beispiel, damit man sieht, dass deine Idee mit den verstreuten Arrays nicht zukunftsträchtig ist.
  Stell dir vor, du willst den User nach seiner Wahl sortieren lassen, z.B. nach Attr, Value oder Selection. Und jetzt stell dir den Aufwand vor, das umzusetzen, dass alle 3 Arrays zum Schluss auch wieder zusammenpassen.
  Last edited: 2019-09-13 22:18:10 +0200 (CEST)
  1 + 1 = 10
  - +11 replies
  - Gast derPerwerker
    
    2019-09-13 22:17
    
    Hey, Danke für das Feedback,
    
    wie mache ich es denn richtig ? Als Ergebnis brauche ich den genannten String, also "Attribut:xy,xy Attribut:xy,zd usw.
    
    Und soetwas :
    
    Attribut1 Wert Auswahl,Auswahl
    Attribut2 Wert Auswahl,Auswahl
    .
    .
    .
    
    Gruß
    Tom
    Last edited: 2019-09-13 22:53:22 +0200 (CEST)
    - +9 replies
    - rosti
      
      2019-09-14 08:33
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Wie Muffi schreib: Es ist besser, alles zusammen in einer Datei abzulegen. Also einen Serializer zu nehmen (z.B. Storable) und sich eine zweckmäßige Datenstruktur zu überlegen. Dann hast Du eine Datei und eine Datenstruktur. Und die weird dann nur noch als Referenz an die Funktionen übergeben die was damit machen sollen.
      
      Und wenn Du den Schritt zu OOP tun möchtst: Da ist die Datenstruktur das Objekt (Instanz einer Klasse) was seine Funktionen selbst aufruft (womit auch die Übergabe stattfindet).
      
      MFG
      Last edited: 2019-09-14 08:36:32 +0200 (CEST)
      - +8 replies
      - Gast derPerlwerker
        
        2019-09-14 10:44
        
        Hallo rosti,
        
        auch dir vielen Dank für die Info. Ich befütrchte, ich habe mich im Formum wohl vertan, denn leider habe ich von deinen Ausführungen nicht all zu viel verstanden.
        
        Die Situation ist nun einmal so, dass ich eine Datei mit den genannten Daten habe und diese einlesen möchte. Ob das sinnig ist oder nicht, sei einmal da hingestellt. Die Struktur der Daten kann ich noch beeinflussen.
        
        Es ist also besser,die Datei in einem Stück in ein array einzulssen ? Ok, das bekomme ich hin,
        
        Aus diesem array würde ich dann Datenpaare pro "Reihe" in hash bilden?
        
        Dankeund Gruß
        Tom
        Last edited: 2019-09-14 11:20:51 +0200 (CEST)
        
        +7 replies
        
        styx-cc
        
        2019-09-14 15:31
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        Hi Tom.
        Also so ganz schlau werde ich aus Deinen Postings nicht. Sei doch mal so lieb und schreib nachvollziehbar auf, wie sieht die Eingabedatei aus (Struktur, Inhalt) und was möchtest du genau als Ausgabe erhalten?
        
        Lieben Gruß
        
        So zum Bsp:
        Eingabedatei
        
        Code: (dl )
        
        1 2 3 4
        
        Atr1,50,50,60 Atr2,10,20,39 Atr1,10 Atr2,10,10
        
        Ausgabe:
        
        Code: (dl )
        
        1 2
        
        Atr1: 170 Atr2: 89
        
        Last edited: 2019-09-14 15:34:08 +0200 (CEST)
        Pörl.
        
        Gast derPerlwerker
        
        2019-09-15 10:11
        
        Hi,
        
        wie ich im ersten Post schon sagte, die Eingabedatei sieht so aus:
        
        Attribut1 50 :xyz,xy
        Attribut2 Zeit :nv
        Attribut3 17:00:00 :nv,oder
        Attribut4 xyz
        
        Die unterschiedlichen Daten sind durch Leerzeichen bzw. Tabs getrennt.
        
        Herauskommen soll folgendes:
        1.)
        
        Attribut1 50
        Attribut2 Zeit
        Attribut3 17:00:00
        Attribut4 xyz
        
        2.)
        
        Attribut1:xyz,xy Attribut2:nv Attribut3:nv,oder Attribut4
        Last edited: 2019-09-15 11:39:11 +0200 (CEST)
        
        +5 replies
        
        derPerlwerker
        
        2019-09-15 10:55
        
        User since
        2019-09-13
        9 Artikel
        BenutzerIn
        
        Hallo,
        die Eingabedatei sieht so aus:
        
        Code: (dl )
        
        1 2 3
        
        Attribut1 50 :xyz,xy Attribut2 Zeit :nv Attribut3 17:00:00
        
        Wobei die einzelnen Daten tabstop getrennt sind.
        
        Die Ausgabe soll wie folgt sein:
        1.
        
        Code: (dl )
        
        1 2 3
        
        Attribut1 50 Attribut2 Zeit Attribut3 17:00:00
        
        2.
        
        Code: (dl )
        
        Attribut1:xyz,xy Attribut2:nv Attribut3
        
        Last edited: 2019-09-15 11:39:22 +0200 (CEST)
        
        +4 replies
        
        styx-cc
        
        2019-09-15 13:37
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        Eine Möglichkeit:
        
        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
        
        #!/usr/bin/perl use strict; use warnings; my %attributes; for my $line (<DATA>) { #__DATA__ zeilenweise durchlaufen chomp $line; #Zeilenumbruch entfernen my @line_parts = split / /, $line; #Zeile in n Teile aufteilen my $identifier = shift @line_parts; #erstes Element von @line_parts als Bezeichner verwenden $attributes{$identifier} = \@line_parts; #Rest zuweisen print "$identifier: $attributes{$identifier}->[0]\n"; #Ausgabe1 } #Ausgabe2 for my $attr (sort keys %attributes) { print "$attr"; print ":" . (@{ $attributes{$attr} })[1 .. $#{ $attributes{$attr} }] . " " if defined( @{ $attributes{$attr} }[1]); #prüfen ob noch etwas zum Augeben außer dem Bezeichner vorhanden ist und ggf. Ausgabe } __DATA__ Attribut1 50 :xyz,xy Attribut2 Zeit :nv Attribut3 17:00:00
        
        Edit: sort zu den keys hinzugefügt
        Last edited: 2019-09-15 13:47:49 +0200 (CEST)
        Pörl.
        
        +3 replies
        
        derPerlwerker
        
        2019-09-16 08:31
        
        User since
        2019-09-13
        9 Artikel
        BenutzerIn
        
        Vielen Dank für den Code. Das Meiste verstehe ich davon sogar :-)
        Was aber macht diese Zeile genau ?
        
        Code: (dl )
        
        1 2
        
        $attributes{$identifier} = \@line_parts; #Rest zuweisen
        
        Also ich versteh, dass es sich hierbei um den Verweis auf das eigentliche Array handelt. (Referenz). Aber was bedeutet der identifier in geschweiften Klammern ?
        
        Kannst du dazu vielleicht noch etwas sagen?
        
        +2 replies
        
        derPerlwerker
        
        2019-09-16 08:57
        
        User since
        2019-09-13
        9 Artikel
        BenutzerIn
        
        Vielleicht doch selbst gelöst ...
        
        Hier werden hash-Elemente(hash=%attributes) (Schlüssel=$identifier) in das Array geschrieben ?
        
        Stimmt das soweit?
        
        styx-cc
        
        2019-09-16 12:06
        
        User since
        2006-05-20
        533 Artikel
        BenutzerIn
        
        Korrekt, dem Hash %attributes werden die verbliebenden Werte in @line_parts als Referenz hinzugefügt, und zwar dem Hashelement mit dem Bezeichner $identifier. Also in Deinem Fall $attributes{'Attribut1'} = \@line_parts, $attributes{'Attribut2'} = \@line_parts ...
        Pörl.
    - Muffi
      
      2019-09-16 08:56
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Sowas in der Art?
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      my @lines = ('Attribut1 50 :xyz,xy', 'Attribut2 Zeit :nv', 'Attribut3 17:00:00 :nv,oder'); my @data = (); my $CMD = "attr"; my $DEV = "Rollladensteuerung"; for my $line_str (@lines) { my @cols = split(/ /, $line_str); push @data, { Attr => $cols[0], Value => $cols[1], Selection => $cols[2] }; } for my $data_line (@data) { say "$CMD $DEV $data_line->{Attr} $data_line->{Value}"; }
      
      1 + 1 = 10
- +2 replies
- rosti
  
  2019-09-15 18:49
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  Ein Array als String ausgeben ist ganz einfach:
  
  Code (perl): (dl )
  
  print "@array";
  
  Also einfach doppelte Anführungszeichen setzen um das Array. Und noch ein Hinweis: Für den wahlfreien Zugriff sind assoziative Arrays (Hashes) zweckmäßiger als native Arrays. Wenn Du also in einer Zeile einer Date zu stehen hast
  
  Code: (dl )
  
  name vorname plz ort
  
  dann definiere diese Felder in Deinem Script, z.B.
  
  Code (perl): (dl )
  
  @fields = qw(name vorname plz ort);
  
  und beim Einlesen nimmst Du das Array was Du vom split bekommen hast auf eine Hash:
  
  Code (perl): (dl )
  
  1 2
  
  %hunt = (); @hunt{@fields} = split /\s+/, $_; # splitte eine Zeile an Leerzeichen
  
  unter Hash-Slice findest Du mehr zu dieser cleveren Programmiertechnik. MFG
  
  .
  Last edited: 2019-09-15 19:10:24 +0200 (CEST)
  - derPerlwerker
    
    2019-09-16 08:34
    
    User since
    2019-09-13
    9 Artikel
    BenutzerIn
    
    Vielen Danke für die Erklärungen. So langsam wird es hell :-)
- +4 replies
- hlubenow
  
  2019-09-16 10:55
  
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  
  Was sollen die Daten eigentlich abbilden, wenn ich fragen darf?
  Also z.B. "Attribut1" - Attribut wovon?
  
  Wenn man das weiß, kann man die Daten vielleicht plausibler strukturieren.
  - +3 replies
  - hlubenow
    
    2019-09-17 02:12
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Ich mein', die Datenmodellierung ist bei komplexeren Strukturen, bzw. bei größeren Projekten vielleicht der wichtigste Teil der Programmierung.
    Solange nicht klar ist, auf was das alles eigentlich hinaussoll, macht es nur begrenzt Sinn, schon Skripte zu den Details zu schreiben.
    Die Verwendung von Ausdrücken wie "Attribut1", "Attribut2", usw. deutet darauf hin, daß die Modellierung verbessert werden sollte.
    Last edited: 2019-09-17 02:16:32 +0200 (CEST)
    - +2 replies
    - rosti
      
      2019-09-17 07:20
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Datenstukturen sind das Rückgrat der OOP. Weil es genau diese Strukturen sind die in Instanzen abgelegt sind: Nutzdaten und weitere Instanzen, die bei jedem $instanz->Funktionsaufruf() für den wahlfreien Zugriff zur Verfügung stehen.
      
      MFG
      - derPerlwerker
        
        2019-09-17 12:43
        
        User since
        2019-09-13
        9 Artikel
        BenutzerIn
        
        Hey,
        
        ich habe hier in den wenigen Post eine menge gelernt. Vielen Dank dafür.
        
        Bei dem Projekt wollte ich lediglich sehen, ob ich einen bestehenden code
        durch eine kleine Funktion "entschlackt" bekomme. Die Daten, dich ich verarbeiten wollte, sind im bestehende code in scalaren an mehreren Stellen hart codiert. Es sieht viel übersichtlicher aus, wenn ich diese Daten in einer sep. Datei leserlich aufstelle. Auch für spätere Updates viel schöner.
        Gruß
        Tom

View all threads created 2019-09-13 20:47.