Hashreferenz bearbeiten (Allgemeines zu Perl)

[thread]20575[/thread]

Hashreferenz bearbeiten

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+20 replies
worst_case

2019-02-02 21:34
User since
2007-08-18
46 Artikel
BenutzerIn
Hallo,

ich habe ein global-hash
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

$daten{name} = Test $daten{Test}{adr_ip} = 192.168.10.10 $daten{Test}{reserve} = "---" #jetzt möchte ich die Adresse des hash an eine Funktion übergeben sub bereitstellen_hash { my ($na) = @_; return \$daten{$na); }
Jetzt rufe ich von extern die Funktion auf um die adresse abzuholen.
Code: (dl )

my $myref =bereitstellen_hash(Test);
Wie kann ich nun auf das hash zugreifen wenn in $myref ja meine Adresse steht. Ich möchte z.B auf "adr_ip" zugreifen.

Danke
- +3 replies
- Linuxer
  
  2019-02-02 22:53
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Lass den \ beim Return weg, denn in $daten{Test} steckt schon die Referenz auf den enthaltenen Hash.
  
  Dereferenzieren kannst Du in Perl mit dem Pfeil Operator.
  
  Hier ein valides Beispiel:
  
  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
  
  #! /usr/bin/perl use strict; use warnings; use 5.020; my %data; $data{foo}{addr} = "1.2.3.4"; $data{foo}{name} = "foofoo"; $data{bar}{addr} = "9.8.7.6"; $data{bar}{name} = "barbar"; sub get_reference { my $key = shift; return $data{$key}; } my $myref = get_reference( "foo" ); say $myref->{name}, "\n", $myref->{addr}; __END__
  
  Lesenswerte Dokumentation dazu:
  perlreftut
  perlref
  perldata
  edit: weitere
  perldsc
  perllol
  
  PS: Was auch immer Du da zu tun vorhast, ich würd's nicht so machen ;-)
  Last edited: 2019-02-02 23:50:39 +0100 (CET)
  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!
  - +2 replies
  - worst_case
    
    2019-02-03 00:29
    User since
    2007-08-18
    46 Artikel
    BenutzerIn
    
    Hallo,
    
    vielen Dank. Ich habe es jetzt so wie Du gelöst.
    Hier bekomme ich aber eine Fehlermeldung, die mir neu ist ...
    
    Can't use string ("HASH(0x55a4a141ada8)") as a HASH ref while "strict refs" in use at /usr/lib/perl5/5.26.1/visual/ein_sys_wert.pm line 164.
    
    Code: (dl )
    
    my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm');
    
    hier kommt der Fehler ... die Schlüssel sind richtig
    
    Code: (dl )
    
    print $var_ref->{mpi};
    
    Hier sitze ich auf der Leitung ;-)
    
    Gruß
    - Linuxer
      
      2019-02-03 01:48
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Und wie sieht der Code drumrum aus? Da sitze ich als Helfer genauso auf der Leitung... Ich kann nur das bewerten, was Du lieferst, und das ist einfach zu wenig.
      
      Anscheinend wird irgendwo in Deinem Code die Referenz in einen String verwandelt.
      Wo genau, weiß ich nicht, weil ich den Code nicht kenne.
      
      Die einfachste Variante wäre wahrscheinlich, dass Du irgendwo ein "$reference" oder ein "$hash{key}" machst ...
      
      Mein Rat: Gehe den Weg von der Fehlermeldung zurück. Wenn die Meldung sich auf die Zeile print $var_ref->{mpi}; bezieht, musst Du den Weg verfolgen, den $var_ref zuvor genommen hat. Wo kommt die Variable her? Was ist ihr auf dem Weg widerfahren? Wenn ihr Inhalt aus einer Subroutine stammt, schaue in dieser Routine nach, wie der Inhalt entsteht und wie er aus der Routine geliefert wird.
      
      edit: Rechtschreibung
      Last edited: 2019-02-03 10:54:57 +0100 (CET)
      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!
- +16 replies
- rosti
  
  2019-02-03 08:21
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Ganz einfach: http://perl.rolfrost.de/ad2.html
  
  Übungssache!
  - +15 replies
  - worst_case
    
    2019-02-03 11:33
    User since
    2007-08-18
    46 Artikel
    BenutzerIn
    
    Hallo,
    
    hier einmal die Zusammenhänge.
    
    1. database (daemon) enthält alle hashdaten
    
    2. Funktionslib (database_tools.pm)
    Hier sind Funktionen mit denen die hashdaten in der "database" gelesen
    und beschrieben werden können.
    Hier ist auch die sub "lesen_var_referenz"
    
    - In meinem "Abfrageprogramm" (hier benötige ich die referenz)
    rufe ich die sub "lesen_var_referenz" (database_tools) mit dem Parameter
    "variablenname" auf (von dieser Variable benötige ich die Referenz)
    
    - Diese Funktion "lesen_var_referenz" (database_tools) ruft in der
    "database" gleichnahmige funktion "lesen_var_referenz" per
    socketverbindung auf.
    
    Abfrageprogramm -> "lesen_var_referenz"(database_tools) -> "lesen_var_referenz" (database)
    
    Code: (dl )
    
    1 2 3
    
    my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm'); print $var_ref."\n"; print $var_ref->{mpi};
    
    ## datatool.pm ##
    ## In dieser lib sind Funktionen um auf die hashdaten per socketverbindung zugreifen zu können.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    sub lesen_var_referenz { my ($keys) = @_; my $socket; my $empf; $socket = new IO::Socket::INET ( PeerAddr => $database_data::hostname, PeerPort => $database_data::port, Type => SOCK_STREAM, Proto => 'tcp' ); die schreibeLogeintrag("Unable to setup socket: $! im Script '$0'\n") unless defined $socket; $socket->send("lesen_var_referenz $keys"); $socket->recv($empf,8196); return $empf; }
    
    # database
    # selbst ausführendes Programm (daemon), das alle hasdaten verwaltet.
    # Alle Daten werden von Funktionen der database_tools (lib)
    # über socketverbindungen hier manipuliert
    #
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    sub lesen_var_referenz { my ($newsock,$variablenname) = @_; if (exists $daten{$variablenname}) { # $daten->name # $daten->name->mpi # $daten->name->wert # $daten->name->typ # $daten->name->db # $daten->name->byte # $daten->name->bit # $daten->name->format $newsock->send($daten{$variablenname}); } else { &schreibeLogeintrag("Schluessel:".$variablenname." wurde im Script $0 in der Funktion: \"lesen_var_referenz\" nicht gefunden\n");} }
    
    aktuell funktioniert
    ========================
    $newsock->send($daten{$variablenname}{format});
    print $var_ref;
    
    das richtige Ergebnis kommt an.
    
    $newsock->send($daten{$variablenname});
    print $var_ref->{mpi};
    
    das geht nicht.
    
    Danke
    Last edited: 2019-02-03 13:50:37 +0100 (CET)
    - GwenDragon
      
      2019-02-03 14:42
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Welcher Fehler kommt denn beim Compilieren/Ablauf?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - rosti
      
      2019-02-03 15:51
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Quote
      das geht nicht.
      ist ein bischen zu wenig für eine Fehlerbeschreibung. Tipp: Nimm mal den Data::Dumper der zeigt Dir Deine Datenstrukturen.
      
      MfG
      
      Und noch etwas: Ein Socket ist ein Handle. D.h., in ein Handle gibt man keine Referenzen sondern Bytesequenzen und beim Lesen ist das umgekehrt. Zwischen Datenstrukturen und Bytesequenzen vermittelt ein Serializer.
      
      .
      Last edited: 2019-02-03 16:29:53 +0100 (CET)
      - +2 replies
      - worst_case
        
        2019-02-03 19:33
        
        User since
        2007-08-18
        46 Artikel
        BenutzerIn
        
        2019-02-03T14:51:01 rosti
        Quote
        
        Und noch etwas: Ein Socket ist ein Handle. D.h., in ein Handle gibt man keine Referenzen sondern Bytesequenzen und beim Lesen ist das umgekehrt. Zwischen Datenstrukturen und Bytesequenzen vermittelt ein Serializer.
        .
        
        .. so war es schon immer (Bestand), ich kann das nicht ändern, da sonst andere Programme nicht mehr darauf zugreifen können.
        
        rosti
        
        2019-02-04 08:53
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        Es geht hier ja auch nicht ums Ändern sondern ums Verstehen!
    - +9 replies
    - GwenDragon
      
      2019-02-03 15:53
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Lass dir mal mit Data::Dumper was ausgeben!
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +8 replies
      - worst_case
        
        2019-02-03 17:41
        
        User since
        2007-08-18
        46 Artikel
        BenutzerIn
        
        Hallo,
        
        Die Socketschnittstelle kann ich nicht verändern.
        Weder send noch receive
        
        1. ##############################################################
        
        Code: (dl )
        
        1 2 3 4
        
        my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm'); print Dumper($var_ref); my $bar; print Data::Dumper->Dump([$var_ref, $bar], [qw(var_ref *ary)]);
        
        Code: (dl )
        
        1 2 3 4
        
        Ausgabe: $VAR1 = 'HASH(0x55d754e8f098)'; $var_ref = 'HASH(0x55d754e8f098)'; $ary = undef;
        
        2. ##############################################################
        aktuell funktioniert
        ========================
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        sub lesen_var_referenz { my ($newsock, $variablenname) = @_; $newsock->send($daten{$variablenname}{format}); } my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm'); print $var_ref;
        
        das richtige Ergebnis ... ich bekomme den Inhalt von $daten{$variablenname}{format} als Rückgabe auf die $var_ref
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        sub lesen_var_referenz { my ($newsock, $variablenname) = @_; $newsock->send($daten{$variablenname}); } my $var_ref = lesen_var_referenz('SYS_verz_meldung_max_differenz_rrm'); print $var_ref->{format}; # Zeile 171
        
        Hier bekomme ich einen Fehler
        <pre>Can't use string ("HASH(0x561e0c617688)") as a HASH ref while "strict refs" in use at /usr/lib/perl5/5.26.1/visual/eingabe_sys_wert.pm line 171.
        
        Etwas grundsätzliches:
        Kann ich überhaupt die referenz von "$daten{$variablenname}" einfach erweitern ?? z.B.
        
        auf $var_ref->{format} ## Orginal $daten{$variablenname}{format}
        
        Eine bitte, wenn Ihr mehr infos braucht, bitte genau angeben was gebraucht wird, bzw. genau welche Ausgaben mit welchem Programm oder Funktion.
        
        Danke
        
        +7 replies
        
        rosti
        
        2019-02-04 10:11
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        Code: (dl )
        
        $VAR1 = 'HASH(0x55d754e8f098)';
        
        Kann nicht sein daß der Dumper sowas ausgibt. Denn der Dumper ist dazu da, die gesamte Datenstruktur aufzulösen und zu zeigen. Und damit ist auch zu sehen, auf welche Schlüssel zu zugreifen kannst. So muss das aussehen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        my %h = ( foo => 'bar', dog => 'boo' ); print Dumper \%h; $VAR1 = { 'dog' => 'boo', 'foo' => 'bar' };
        
        Merke: Schlüssel in einem Hash sind IMMER Strings. Und die Werte dazu sind IMMER Scalare. D.h. daß ein Wert auch selbst eine Hashreferenz sein kann. All das zeigt Dir der Dumper.
        
        MfG
        
        +6 replies
        
        Linuxer
        
        2019-02-04 12:21
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Warum kann das nicht sein?
        
        Wenn in der referenzierten Variable nur ein String steckt, gibt ein Dumper auch nur einen String aus.
        Selbst wenn der String ausschaut wie eine stringifizierte Referenz, bleibt es ein String.
        Es wäre traurig, wenn der Dumper daraus etwas anderes machen würde.
        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!
        
        +5 replies
        
        rosti
        
        2019-02-04 12:27
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        Daß sich ein Entwickler mit der Ausgabe
        
        Code (perl): (dl )
        
        $VAR1 = 'HASH(0x55d754e8f098)';
        
        zufrieden gibt kann ich nicht nachvollziehen.
        
        Zumal diese Ausgabe ja schon selbst die Information liefert, daß da ein Hash dahintersteckt, also weitere Schlüssel-Werte-Paare um dessen Verständnis es hier ja geht.
        
        Anhand einer Speicheradresse ist nicht erkennbar warum der Zugriff auf einen bestimmten Hashkey nicht funktioniert!
        
        MfG
        Last edited: 2019-02-04 12:30:21 +0100 (CET)
        
        +4 replies
        
        Linuxer
        
        2019-02-04 12:40
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Warum sollte sich ein Entwickler nicht damit zufrieden geben?
        Es hängt doch davon ab, was man erwartet.
        
        Ist eigentlich ganz simpel:
        
        Wenn ich eine stringifizierte Referenz erwarte => zufrieden.
        Wenn ich die nicht erwarte => nicht zufrieden.
        
        Nicht zufrieden sollte aber nicht heißen, dass ich den Dumper anzweifle ("das kann nicht sein"). Wenn ein Dumper so einen String unerwarteterweise ausgibt, sollte das ein Indiz für den Entwickler sein, sich zu fragen, wo denn *vorher* diese Referenz stringifiziert wurde.
        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!
        
        +3 replies
        
        rosti
        
        2019-02-04 12:43
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        Quote
        Es hängt doch davon ab, was man erwartet.
        
        Genau! Zum Beispiel keine Speicheradressen in einem Forum wenn es um die Frage geht, warum der Zugriff auf einen bestimmten Hashkey nicht funktioniert ;)
        
        MfG
        
        +2 replies
        
        Linuxer
        
        2019-02-04 12:49
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Ich geb's auf.
        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!
        
        rosti
        
        2019-02-04 12:57
        
        User since
        2011-03-19
        3472 Artikel
        BenutzerIn
        
        2019-02-04T11:49:17 Linuxer
        Ich geb's auf.
        
        Bleibt uns ja auch nichts weiter übrig.
        
        MfG
    - Linuxer
      
      2019-02-03 23:00
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
      
      sub lesen_var_referenz { my ($keys) = @_; my $empf; my $socket = new IO::Socket::INET ( PeerAddr => $database_data::hostname, PeerPort => $database_data::port, Type => SOCK_STREAM, Proto => 'tcp' ); die schreibeLogeintrag("Unable to setup socket: $! im Script '$0'\n") unless defined $socket; $socket->send("lesen_var_referenz $keys"); $socket->recv($empf,8196); return $empf; }
      
      Davon, dass Du hier einen Socket verwendest, war anfangs nicht die Rede....
      
      Du schickst einen Datenstrom via Socket raus und empfängst einen Datenstrom.
      Letzten Endes ist das eben ein String; hier anscheinend eine Referenz auf eine Hash, aber eben in der stringifizierten Form...
      
      Sind das zwei unabhängige Programme?
      Selbst wenn die Referenz auf den Hash als solche durchkommen würde, wie soll das zweite Programm auf Speicherbereiche des ersten Programms zugreifen???
      Ich gestehe, ich habe wenig Erfahrung mit Socket-Programmierung oder tieferer Inter-Prozess-Kommunikation. Aber meiner bescheidenen Meinung nach dürfte das so nicht funktionieren.
      
      Ich denke, wenn Du auf 'mpi' unter 'SYS_verz_meldung_max_differenz_rrm' zugreifen willst, dann teile das via Socket mit und empfange den Dateninhalt.
      
      Code: (dl )
      
      my $data = fetch_from_socket( 'SYS_verz_meldung_max_differenz_rrm', 'mpi' );
      
      Das heisst, Du überträgst per Socket die relevanten Keys und Unter-keys, greifst beim Empfänger darüber auf die gewünschten Daten zu und schickst diese über den Socket zurück.
      
      Wenn Du komplexere Strukturen übertragen willst, musst Du wohl, wie von rosti schon angedeutet wurde, einen Serializer zwischenschalten, um die Struktur via Socket zu übertragen und danach eben wieder de-serialisieren, um sie dann als Datenstruktur weiterzuverwenden.
      Last edited: 2019-02-03 23:02:41 +0100 (CET)
      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!

View all threads created 2019-02-02 21:34.