Auf Hash Werte zugreifen! (gelöst) (Allgemeines zu Perl)

[thread]19740[/thread]

Auf Hash Werte zugreifen! [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+6 replies

Lauvia

2015-07-28 15:09

User since
2013-09-05
42 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

ich habe ein...kleines Problem mit meinem Skript und keine Ahnung woran es liegt.

Ich habe Simulationsdaten mit home made funktion in eine Hash Tabel extrahiert (siehe Anhang). Den folgenden Teilcode habe ich geschrieben:

Code (perl): (dl )

foreach my $time ( sort {$a <=> $b} keys %{$Signal_ref})
{
   print"my signal: $Signal_ref->{$time} at t = $time \n";  # first test
        
   if (defined $Signal_ref->{$time})
   {
     my $SigValue{$time} = $Signal_ref->{$time}{'signal_1'};
     print"my values: $SigValue{$time} \n";
   }

}

In Zeile 3 bei $Signal_ref->{$time}, der Skript hätte eigentlich signal_1 und message_1 rausspucken müssen. Ich kriege aber was wie HASH<0xab3113fc> raus.

Woran könnte das Problem liegen? Hätte jemand eine passende Lösung?

LG

Anhänge

text/plain
122 lines
CAN_Hash.txt

Linuxer

2015-07-28 15:34

User since
2006-01-27
3891 Artikel
HausmeisterIn

An der Stelle von $Signal_ref->{$time} liegt eine Referenz auf einen Hash.
Dieser Hash sollte dann wohl die genannten Daten "signal_1 und message_1" enthalten.

Wenn eine Referenz per print ausgegeben wird, dann wird sie genau in der Form ausgegeben, wie Du das beschreibst, bei einer Hash-Referenz eben als HASH<0xab3113fc>.

Wenn Du an die Inhalte der Referenz willst, musst Du sie dereferenzieren (ähnlich wie Du es bereits in Deinem if-Block tust).

Was genau willst Du denn haben? Du willst einfach die Daten des Hashes ausgeben, der in $Signal_ref->{$time} referenziert wird?

Doku:
http://perldoc.perl.org/perlreftut.html
http://perldoc.perl.org/perlref.html
http://perldoc.perl.org/perldsc.html
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!
+4 replies

Raubtier

2015-07-28 15:41

User since
2012-05-04
1081 Artikel
BenutzerIn
[default_avatar]

zusätzlich: wenn du nur mal eben sehen willst, was wirklich drin ist in der Variablen, dann:

Code (perl): (dl )

foreach my $time ( sort {$a <=> $b} keys %{$Signal_ref})
{
   use Data::Dumper; 
   print "my signal at t = $time:\n";
   print Dumper $Signal_ref->{$time};
   ...
}

Last edited: 2015-07-28 15:42:36 +0200 (CEST)

+3 replies

Lauvia

2015-07-29 15:54

User since
2013-09-05
42 Artikel
BenutzerIn
[default_avatar]

OK ich habe was anderes ausprobiert!

Code (perl): (dl )

my 
%Signal_ref = (
   10.005108 => {
        PSIP1 => "-0.039999999999992",
        SBC_SC_A1_AR2 => {
               DATA => "22 0D 00 00 20 80 F8 7F  ",
               DLC => "8"
              }
   },
   10.015101 => {
        PSIP1 => "-0.330000000000013",
        SBC_SC_A1_AR2 => {
                 DATA => "D2 0E 00 00 27 80 BE 7F  ",
                 DLC => "8"
                 }
   },
   10.025102 => {
        PSIP1 => "-0.169999999999987",
        SBC_SC_A1_AR2 => {
                 DATA => "88 0F 00 00 20 80 DE 7F  ",
                 DLC => "8"
                 }
   },
   10.034626 => {
        PSIP1 => "-0.490000000000009",
        SBC_SC_A1_AR2 => {
                 DATA => "CB 00 00 00 00 80 9E 7F  ",
                 DLC => "8"
                 }
   },
   10.045139 => {
        PSIP1 => "-0.27000000000001",
        SBC_SC_A1_AR2 => {
                 DATA => "47 01 00 00 17 80 CA 7F  ",
                 DLC => "8"
                 }
   },
   10.055142 => {
        PSIP1 => "-0.449999999999989",
        SBC_SC_A1_AR2 => {
                 DATA => "11 02 00 00 F1 7F A6 7F  ",
                 DLC => "8"
                 }
   },
   10.065121 => {
        PSIP1 => "-0.129999999999995",
        SBC_SC_A1_AR2 => {
                 DATA => "FD 03 00 00 12 80 E6 7F  ",
                 DLC => "8"
                }
   },
        
);

my $i = 1;
for my $time(sort {$a<=>$b} keys %Signal_ref)
{
        print"Stimestamp_"."$i : $time\n";
        
        $i++;
        for my $msg(sort keys %{$Signal_ref{$time}})
        {
                print"my signal: $msg\n";
                #print"$Signal_ref{$time}\n";
        }
        
        print "\n";
}

Das ist OK, ich ich bekomme was ich möchte (einfach kopieren und laufen lassen; aber der Hash oben ist anders als der den ich von der Simulation habe (siehe unten, single quote und 2 geschweiften Klammern am Anfang und Ende)

Code (perl): (dl )

Signal_ref = {
  '10.005108' => {
    'PSIP1' => '-0.039999999999992',
    'SBC_SC_A1_AR2' => {
      'DATA' => '22 0D 00 00 20 80 F8 7F  ',
      'DLC' => '8'
    }
  },
  '10.015101' => {
    'PSIP1' => '-0.330000000000013',
    'SBC_SC_A1_AR2' => {
      'DATA' => 'D2 0E 00 00 27 80 BE 7F  ',
      'DLC' => '8'
    }
  },
  '10.025102' => {
    'PSIP1' => '-0.169999999999987',
    'SBC_SC_A1_AR2' => {
      'DATA' => '88 0F 00 00 20 80 DE 7F  ',
      'DLC' => '8'
    }
  },
  '10.034626' => {
    'PSIP1' => '-0.490000000000009',
    'SBC_SC_A1_AR2' => {
      'DATA' => 'CB 00 00 00 00 80 9E 7F  ',
      'DLC' => '8'
    }
  },
  '10.045139' => {
    'PSIP1' => '-0.27000000000001',
    'SBC_SC_A1_AR2' => {
      'DATA' => '47 01 00 00 17 80 CA 7F  ',
      'DLC' => '8'
    }
  },
  '10.055142' => {
    'PSIP1' => '-0.449999999999989',
    'SBC_SC_A1_AR2' => {
      'DATA' => '11 02 00 00 F1 7F A6 7F  ',
      'DLC' => '8'
    }
  },
};

Damit der Stückcode:

Code (perl): (dl )

my $i = 1;
for my $time(sort {$a<=>$b} keys %$Signal_ref)
{
        print"Stimestamp_"."$i : $time\n";
        
        $i++;
        for my $msg(sort keys %{$Signal_ref{$time}})
        {
                print"my signal: $msg\n";
                #print"$Signal_ref{$time}\n";
        }
        
        print "\n";
}

Und da geht es nicht mehr.

Wo ist der wesentliche Unterschied zwischen beiden Hash. Worauf muss ich bei dereferenzieren achten!?

+2 replies
Linuxer

2015-07-29 16:13
User since
2006-01-27
3891 Artikel
HausmeisterIn
Im ersten Datenbeispiel heißt es %Signal_ref = ();, also ist es ein Hash (beachte das % und die runden Klammern).

Im zweiten Beispiel heißt es Signal_ref = {};, es fehlt das Sigil $ und es ist eine Hash-Referenz (beachte die geschweiften Klammern).

Das muss im folgenden Code dann berücksichtigt werden:
Code: (dl )

Global symbol "%Signal_ref" requires explicit package name at ... line ... .
Der Fehler liegt in:
Code: (dl )

for my $msg ( sort keys %{ $Signal_ref{$time} } )
Da muss ein -> eingefügt werden, damit die Dereferenzierung der Hash-Referenz in $Signal_ref klappen kann.

edit: Rechtschreibung überarbeitet.
Last edited: 2015-07-29 17:26:41 +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!
- Lauvia
  
  2015-07-29 17:01
  
  User since
  2013-09-05
  42 Artikel
  BenutzerIn
  
  Hallo Linuxer,
  
  Respekt!! Vielen Dank, es hat geklappt!
  
  :-)

View all threads created 2015-07-28 15:09.