hash Problem (Allgemeines zu Perl)

[thread]15807[/thread]

hash Problem

Leser: 21

Articles: hide open all | hide show old branches

+12 replies
Gast Gustl

2011-01-07 00:52
Hallo, ich arbeite gerade an einem Projekt und wollte da hashes einsetzen, nun habe ich dies gemacht, aber es kommt folgende Fehlermeldung bei dem versuch das script auszuführen:

Quote
Can't use an undefined value as a HASH reference at Subs.pm line 90.

und in Zeile 90 steht genau dies hier:
Code (perl): (dl )

my $back->{iglu} = 0;
Woran könnte das liegen? Weil eigentlich sollte diese Zeile doch funktionieren?

Gruß Gustl
Last edited: 2011-01-07 01:13:40 +0100 (CET)
- +11 replies
- pq
  
  2011-01-07 01:26
  User since
  2003-08-04
  12208 Artikel
  Admin1
  also einen hash deklariert man so:
  my %hash;
  
  und mit werten befüllt man ihn danach mit einem zweiten statement so:
  $hash{iglu} = 0;
  
  das ganze mit einer hash-referenz, die du anscheinend benutzen möchtest:
  my $hash = {};
  
  $hash->{iglu} = 0;
  
  bei dieser art muss das befüllen erst nach der deklaration erfolgen. wenn du gleich beim deklarieren werte füllen willst, dann geht das nur folgendermassen:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my %hash = ( iglu => 0 ); # oder als referenz my $hash = { iglu => 0 };
  
  edit: @Gustl: meine anmerkungen gelten nur für perl 5.8 und frühere versionen... danke linuxer
  Last edited: 2011-01-07 03:56:55 +0100 (CET)
  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
  - +10 replies
  - Linuxer
    
    2011-01-07 01:33
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Das scheint aber (leider) nur noch für ältere Perl-Versionen zu gelten.
    Meine Tests mit 5.10.1 und 5.12.2 erlauben diese Seltsamkeit. (Denn ich wollte grade eine ähnliche Antwort wie Du schreiben und bin verwirrt/schockiert, dass es hier anstandslos funktioniert...)
    
    Tests:
    
    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
    
    $ cat /tmp/t.pl #! /usr/bin/perl # vim:ts=4 sw=4 sts=4 et nu fdc=3: use strict; use warnings; use Data::Dumper; my $back->{iglu} = 0; print Dumper( $back ); printf "v%vd\n", $^V; __END__ $ perl /tmp/t.pl $VAR1 = { 'iglu' => 0 }; v5.12.2 $ /opt/perl/bin/perl /tmp/t.pl $VAR1 = { 'iglu' => 0 }; v5.10.1 $
    
    edits: Skript abgegrenzt, Version-String Ausgabe überarbeitet.
    Last edited: 2011-01-07 11:15:38 +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!
    - +9 replies
    - pq
      
      2011-01-07 03:54
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wow, und ich verwende 5.10 echt schon eine weile...
      wer hat sich das denn ausgedacht? =)
      
      ich nehme mir vor, die perldeltas nochmal durchzugehen...
      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
      - Gast Gustl
        
        2011-01-07 04:09
        
        Ich danke euch, habe es eben lokal auf meinen Rechner getestet, und dort hat es auch funktioniert, deswegen wurdete ich mich... Aber auf meinem Webspace ging es wohl nicht, bin dann schon drauf gekommen das man ihn wohl deklarieren muss diesen hash :D
        
        Aber danke euch.
        Gruß
        Last edited: 2011-01-07 04:10:54 +0100 (CET)
      - +7 replies
      - topeg
        
        2011-01-07 11:01
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das ist doch die konsequente Weiterführung der Autovivikation. Ich denke das ist ein unbeachteter Nebeneffekt der Verbesserung der Variableninitialisierung. Ich kann mir denken, dass es keinem richtig aufgefallen ist. :-)
        Es ist ja ein ähnliches Problem wie bei: my $code=sub{}; das geht in einer Zeile ja auch erst seit 5.10.
        
        +6 replies
        
        Linuxer
        
        2011-01-07 11:14
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Hi,
        
        my $code = sub {}; auf einer Zeile funktioniert hier mit einer 5.8.8.... ;)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        $ cat t.pl #! /usr/bin/perl use strict; use warnings; use Data::Dumper; my $code = sub { print "hallo @_\n"; }; print Dumper($code); printf "v%vd\n", $^V; $code->("Welt"); __END__ $ perl t.pl $VAR1 = sub { "DUMMY" }; v5.8.8 hallo Welt $
        
        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
        
        topeg
        
        2011-01-07 11:26
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        OK. Aber ich weiß genau, dass ich früher mal Probleme damit hatte. :-)
        
        +4 replies
        
        pq
        
        2011-01-07 15:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        komisch. was ist an
        my $code = sub {};
        
        so viel anders als an
        my $hash = {};
        
        vielleicht redest du hier von subs, die sich selbst in der sub referenzieren, z.b. rekursive subs. diese muss man immer noch unter use strict in zwei schritten deklarieren.
        
        das neue an der notation mit dem hash oben ist ja, dass es während der deklaration gleich auch benutzt und dereferenziert wird.
        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
        
        +3 replies
        
        topeg
        
        2011-01-07 16:00
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2011-01-07T14:37:11 pq
        komisch. was ist an
        my $code = sub {};
        
        so viel anders als an
        my $hash = {};
        
        vielleicht redest du hier von subs, die sich selbst in der sub referenzieren, z.b. rekursive subs. diese muss man immer noch unter use strict in zwei schritten deklarieren.
        
        Ja das kann sein. Ich weiß jetzt wirklich nicht mehr genau, wann es ein Probelm in welchem Zusammenhang war.
        
        2011-01-07T14:37:11 pq
        das neue an der notation mit dem hash oben ist ja, dass es während der deklaration gleich auch benutzt und dereferenziert wird.
        
        Wenn man die Spezialfälle einer Autovivikation in Hash oder Array verallgemeinert, könnte man das hier gezeigte Verhalten ja erwarten. Warum sollte die Autovivikation nicht auch bei Scalaren funktionieren?
        
        +2 replies
        
        pq
        
        2011-01-07 16:15
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        es heisst autovivifikation. ich beobachte das schon seit einiger zeit, dass hier ständig autovivikation geschrieben wird. es ist lästig, aber da gehört noch ein "fi" rein.
        
        Quote
        Warum sollte die Autovivikation nicht auch bei Scalaren funktionieren?
        
        habe ich gesagt, dass sie das nicht sollte?
        habe ich das thema autovivify reingebracht?
        
        autovivify funktioniert tadellos und schon in 5.8 auch mit skalaren:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        perl -wle'use Data::Dumper; my $hashref; $hashref->{foo} = 23; print Dumper $hashref;' $VAR1 = { 'foo' => 23 };
        
        wie ich schon schrieb, ist die neuerung des codes
        my $hash->{foo} = 23;
        dass während der deklaration die variable schon benutzt und dereferenziert wird.
        deklaration und dereferenzierung. ist ein novum.
        
        funktioniert interessanterweise nicht mit normalen hashes:
        my $hash{foo} = 23;
        syntax error at -e line 2, near "$hash{foo"
        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
        
        topeg
        
        2011-01-07 16:40
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2011-01-07T15:15:18 pq
        wie ich schon schrieb, ist die neuerung des codes
        my $hash->{foo} = 23;
        dass während der deklaration die variable schon benutzt und dereferenziert wird.
        deklaration und dereferenzierung. ist ein novum.
        
        funktioniert interessanterweise nicht mit normalen hashes:
        my $hash{foo} = 23;
        syntax error at -e line 2, near "$hash{foo"
        
        Genau aus dem Grund brachte ich die autovivifikation ins Spiel. So wie ich das sehe haben wir es hier genau damit zu tun. Wie es scheint hat man es ermöglicht Initialisierung und autovivifikation in einer Zeile zu nutzen. Dieser Spezialfall tritt nur bei Scalaren auf. Und genau aus dem Grund funktioniert das zweites Beispiel auch nicht. Es handelt sich da um eine Zuweisung bei einem nicht initialisierten Hashs.
        
        Aber das ist nur meine Meinung. Ich habe noch nichts nachgelesen.

View all threads created 2011-01-07 00:52.