strict + Variable als Hashname (gelöst) (Allgemeines zu Perl)

[thread]18720[/thread]

strict + Variable als Hashname [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
qwe123qwe

2013-11-03 15:27
User since
2013-10-08
65 Artikel
BenutzerIn
leider hab ich offensichtlich ein Verständnisproblem bei der Verwendung von Listen von Hashes...

ich habe eine Datei mit Alarmwerten der Art
<Bezeichner> <Zeitstempel> <Alarmwert1> <ALarmwert2> <Alarmwert3>
wie hier :

Station1 09:09 343 33.6 -18.8
Station2 10:11 43 33.3 20
Station3 11:11 230 33,8 1.9
...

in meinem jugendlichen Übermut wollte ich die Datei mit folgendem Code in eine Liste einlesen:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

use strict; my @alarme = (); open (ALARMDATEI, "<Alarmdatei.txt") || die "kann Alarmdatendatei nicht öffnen : $!"; while (my $zeile = <ALARMDATEI>) { $zeile =~ /(.+)\t(.+)\t(.+)(\t+)(.+)/; %$1 = ( zeit => $2, alarm1 => $3, alarm2 => $4, alarm3 => $5); push (@alarme, %$1); } close (ALARMDATEI);
jetzt bekomme ich mit dem "strict" aber folgende Fehlermeldung :
Can't use string ("Station1") as a HASH ref while "strict refs" in use at ./test.pl line 12, <ALARMDATEI> line 1

wie kann ich das denn elegant umgehen, ohne auf das "strict" zu verzichten ?

das ist jetzt wieder die Ausgangslage; beim Versuch, das mit Hilfe von Artikeln im Netz zu lösen hab ich mich da inzwischen so verstiegen in einem Labyrith von @Listen{Hashes}@Listen, daß ich mich nur noch im Kreis drehe...... :) - ich denke aber, da muß es eine relativ simple Lösung dafür geben (oder nicht ?)
Danke schon mal im Voraus
Last edited: 2013-11-03 15:28:52 +0100 (CET)
- +2 replies
- pq
  
  2013-11-03 15:43
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ich verstehe erstmal gar nicht, was du haben willst.
  
  einerseits möchtest du dynamisch die hashes %Station1, %Station2 etc. füllen.
  und zwar für jede zeile neu. wenn also ein bezeichner mehrmals vorkommt, wird nur die letzte zeile berücksichtigt.
  und dann willst du die dynamisch gefüllten hashes in @alarme ablegen, wobei der name des hashs dann ja eh wieder verloren geht.
  
  grundsätzlich löst man das problem der dynamischen variablennamen mit hashes. genau dafür sind hashes gemacht.
  da deine variablen hashes sein sollen, hättest du dann eben hashes of hashes.
  
  ich werde wie gesagt aus deinem skript nicht schlau, welche daten du am ende haben möchtest.
  
  möchtest du für jede "Station" eine liste haben?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  use Data::Dumper; my %stationen; ... # in der schleife push @{ $stationen{ $1 } }, { zeit => $2, alarm1 => $3, alarm2 => $4, alarm3 => $5 }; ... # am ende print Dumper \%stationen;
  
  hier solltest du sehen, wie die fertige datenstruktur aussieht.
  $stationen{1} ist eine array-referenz. dieses array beinhaltet wiederum hashes (referenzen), für jede zeile einen.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - qwe123qwe
    
    2013-11-03 16:33
    
    User since
    2013-10-08
    65 Artikel
    BenutzerIn
    
    vielen Dank !
    
    Quote
    wobei der name des hashs dann ja eh wieder verloren geht
    
    daran hab ich gar nicht mehr gedacht -- natürlich ist das dann Unsinn.
    
    das eigentliche Ziel ist der Bau einer Schleife, in der die Alarmzustände aller Stationen mit den Referenzwerten aus der Datei verglichen werden.
    Jetzt ist mir das klar, das ich dafür genau wie du vermutest hast, für jede Station eine Liste brauche (und dann falls nötig daraus eine Liste der Stationslisten bauen kann - also eine Liste von Listen von Hashes und keine Liste von Hashes von Listen oder ähnliches :) )
    
    Danke nochmal -- du hast mich vor einem "Drehwurmsonntag" bewahrt....

View all threads created 2013-11-03 15:27.