Hash und Array (Allgemeines zu Perl)

[thread]19426[/thread]

Hash und Array

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+12 replies
Gast Graf Herschel

2014-12-19 13:27
Hallo, ich schon wieder

Ich bin mir völlig unsicher, ob meine Notation richtig ist.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my %hash={}; my $hlen = get_infos(\%hash); print(@{$hash{"hallo"}}[0] . "\n"); sub get_infos { my($hash) = @_; my $key = "hallo"; push(@{$hash->{$key}},$irgendwas); return keys %$hash; }
Das funktioniert zwar, ich habe aber kein gutes Gefühl dabei.
Vielleicht könnte das jemand mit einem kurzen "ok" oder "So sicher nicht" beurteilen.

Danke
Graf Herschel
- +3 replies
- Muffi
  
  2014-12-19 13:31
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  fast ;)
  
  return keys %$hash;
  
  liefert eine Liste zurück. Ich geh mal davon aus du willst die nicht in einem Skalar $hlen haben, sondern in einem Array.
  
  edit:
  und
  @{$hash{"hallo"}}[0]
  =
  $hash{"hallo"}->[0]
  oder
  $hash{"hallo"}[0] # Perl erkennt hier die Referenz
  Last edited: 2014-12-19 13:33:27 +0100 (CET)
  1 + 1 = 10
  - +2 replies
  - Gast Graf Herschel
    
    2014-12-19 13:40
    
    2014-12-19T12:31:08 Muffi
    fast ;)
    
    return keys %$hash;
    
    liefert eine Liste zurück. Ich geh mal davon aus du willst die nicht in einem Skalar $hlen haben, sondern in einem Array.
    
    $hlen soll nur die Zahl über die Menge der keys halten, die in get_infos() erzeugt werden. In dem Beispiel liefert sie 1 zurück. Sieht für mich alles ein wenig seltsam aus, doch deshalb frage ich.
    Last edited: 2014-12-19 13:51:08 +0100 (CET)
    - flowdy
      
      2014-12-20 15:56
      
      User since
      2012-08-03
      45 Artikel
      BenutzerIn
      
      Hej,
      
      dann ist return scalar keys %hash klarer: So erkennst du später oder ein Dritter gleich, was die Funktion zurück geben soll, nämlich die Anzahl.
      package MyClass; sub new {\b\b\b\b\b\b\b\b\buse Moose;
- +4 replies
- Linuxer
  
  2014-12-19 13:36
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Da steckt am Anfang ein Fehler drin.
  
  Die Hash-Deklaration sollte so gehen my %hash = (); oder wenn der Hash eh leer bleibt my %hash;.
  
  Deine Variante erzeugt eine anonyme Hash-Referenz und weist diese dann dem benannten Hash zu. Mit aktivierten Warnungen sollte eigentlich so eine Meldung kommen: Reference found where even-sized list expected at - line 2.
  
  Du hast damit einen Hash definiert, der als Key ein Literal der Hash-Referenz enthält, die aber keinen Wert zugewiesen hat, also undef.
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  perl -Mstrict -w -MData::Dumper my %hash = {}; print Dumper \%hash; ^D Reference found where even-sized list expected at - line 2. $VAR1 = { 'HASH(0x8b36818)' => undef };
  
  Ansonsten bleibt es ein Hash, dem Du mit Deiner Subroutine einen weiteren Key hinzufügst.
  Innerhalb Deiner Sub legst Du dann eine Array-Referenz zu einem Key ab, das schaut soweit in Ordnung aus.
  
  Doku zu den Datenstrukturen:
  
  http://perldoc.perl.org/perldata.html
  http://perldoc.perl.org/perldsc.html
  http://perldoc.perl.org/perllol.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!
  - +3 replies
  - Gast Graf Herschel
    
    2014-12-19 14:30
    
    http://perldoc.perl.org/
    Diese Seite ist mir selbstverständlich bekannt. Es ist keineswegs so, dass ich sofort hier anfrage, ohne mich vorher selbst bemüht zu haben.
    Die meisten Besipiele auf http://perldoc.perl.org/
    verstehe ich ganz einfach nicht. Dort schreibt jemand, der entweder zeigen will was er kann, oder mit Perl ins Bett geht. Einfache, leicht verständliche Beispiele, die einem Anfänger hilfreich sein könnten, findet man dort nur selten. Für mich ist diese Seite deshalb unbrauchbar. Perl ist furchtbar verzopft und ausgeartet, und die Beispiele dort arbeiten damit.
    
    Ich danke dir
    Graf Herschel
    
    modedit Editiert von GwenDragon: Vollzitat entfernt
    Last edited: 2014-12-19 17:43:53 +0100 (CET)
    - Linuxer
      
      2014-12-19 14:48
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ich kann nicht wissen, welchen Aufwand Du betrieben hast, bevor Du hier Deine Frage stellst.
      Es gibt genug, die ein Forum als erste Anlaufstelle nehmen und die vorhandene Doku nicht kennen oder einfach ignorieren, weil man genug Depp^WHelfende findet, die einem die Lösung schon vorkauen ;-)
      Daher poste ich durchaus mal gerne Links auf die - meiner Meinung nach - passende Doku.
      Wenn ich Dir also nochmal solche Links poste, ist das nicht bös gemeint ;-)
      
      Man muss sich vielleicht erstmal an die perldoc gewöhnnen. Ich finde sie meistens hilfreich und brauchbar. Aber das hat auch eine Weile gedauert (vor allem je besser man mit der Sprache zurecht kommt). Auch wenn es Einzelfälle geben mag, wo sie missverständlich sein kann. Das mag aber auch an der Sprach-Barriere liegen.
      
      Quote
      Perl ist furchtbar verzopft und ausgeartet, und die Beispiele dort arbeiten damit.
      
      Finde ich jetzt nicht so (verzopft und ausgeartet); aber ich denke, da die Beispiele zur Sprache passen sollen, ist es (IMHO) zwangsläufig so, dass es so empfunden werden kann.
      
      Das wichtige ist, dass Du die Ausführungen hier verstanden hast und Dir geholfen 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!
    - GwenDragon
      
      2014-12-19 17:45
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Euer Gräflichkeit,
      Wenn du auf einen Beitrag antwortest, brauchst du keine Vollzitate, das stört eher optisch.
      Wenn du zitierst, dann kürze doch bitte das Zitat.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- payx
  
  2014-12-19 13:44
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo,
  
  hier ein lauffähiges Beispiel (sozusagen als Ergänzung zu den Ausführungen von Linuxer), das Dir vielleicht weiterhilft:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl use strict; use warnings; my %hash=(); my $hlen = get_infos(\%hash); print "hlen: $hlen\n"; print("Hallo " . $hash{"hallo"}->[0] . "\n"); sub get_infos { my ($hash) = @_; my $key = "hallo"; my $irgendwas = "Welt"; push(@{$hash->{$key}},$irgendwas); return keys %$hash; }
  
  HTH
  Grüße
  payx
  
  PS: Ich vermute hier, dass mit hlen "Hash-Länge" gemeint ist und Du die Anzahl der Keys abfragen willst.
  
  Editiert von payx: PS
  Last edited: 2014-12-19 13:46:11 +0100 (CET)
  - Gast Graf Herschel
    
    2014-12-19 13:57
    
    Meine Damen und Herren,
    
    ich habe es entsprechend geändert und verstanden.
    Nun schmeckt auch der Kaffee wieder.
    
    Vielen Dank an alle
    Graf Herschel
    Last edited: 2014-12-19 14:09:48 +0100 (CET)
- rosti
  
  2014-12-19 13:56
  
  User since
  2011-03-19
  3474 Artikel
  BenutzerIn
  
  Ich hab mir mal die Mühe gemacht, Deinen Code in meinen Editor zu kopieren und auszuführen (ohne strict, ohne warnings). Der print() gibt mir nichts weiter als einen Zeilenumbruch aus und da wäre meine erste Frage: Was erwartest Du an dieser Stelle?
  
  Vorschlag: Beschreibe mit eigenen Worten, was Du machen möchtest, entwickle den Code dazu und führe ihn aus. Das Kriterium sind nicht die Gefühle, die Du dabei hast, sondern ob das was der Code macht, das ist, was er machen soll.
- Muffi
  
  2014-12-19 13:58
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  ah, ok
  1 + 1 = 10

View all threads created 2014-12-19 13:27.