Hash aus Sub an ein anderes Sub übergeben (gelöst) (Allgemeines zu Perl)

[thread]15677[/thread]

Hash aus Sub an ein anderes Sub übergeben [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+6 replies
Gast tcicit

2010-11-26 16:37
Hallo ich möchte eine Hash Referenz aus einem Sub an ein anderes Sub übergeben das die Verarbeitung macht.
Code (perl): (dl )

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

my $data = &readDB(); # Das funktionier und kann dann auch im Main verarbeitet werden &verarbeiten(\$data); # Irgendwie funktioniert das nicht richtig &verarbeiten(\%$data); # Auch das funktioniert nicht sub { $data = @_; foreach (%$data) { # etwas machen } }
Was mache ich hier falsch ?
Last edited: 2010-11-26 16:47:59 +0100 (CET)
- pq
  
  2010-11-26 16:55
  User since
  2003-08-04
  12208 Artikel
  Admin1
  der folgende code:
  
  Code (perl): (dl )
  
  1 2
  
  my @array = qw/ a b c /; my $x = @array;
  
  hat als ergebnis in $x die zahl 3.
  
  noch nie so verwendet? ein array im skalaren kontext liefert immer die anzahl der elemente.
  wenn $x das erste element des arrays sein soll, musst du auf der linken seite einen listenkontext erzeugen:
  
  Code (perl): (dl )
  
  my ($x) = @array; # $x == a
  
  Guest tcicit
  
  Code (perl): (dl )
  
  &verarbeiten(\%$data); # Auch das funktioniert nicht
  
  das ist recht sinnlos. wenn $data eine hashref ist, dann dereferenziert %$data diese hashref und der backslash davor erzeugt wiederum eine referenz. der fehler liegt wie gezeigt beim empfang der daten in der sub
  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
- +4 replies
- Linuxer
  
  2010-11-26 16:56
  User since
  2006-01-27
  3875 Artikel
  HausmeisterIn
  \$data referenziert den Skalar, der die Hash Referenz enthält. => schlecht.
  
  \%$data dereferenziert die Hash-Referenz, und referenziert dann wieder die dereferenzierte Hash-Referenz.
  Eine überflüssige Operation; einfach $data reicht und liefert die Hash-Referenz.
  
  $data = @_;
  
  Hier steht @_ im skalaren Kontext und liefert die Anzahl der Elemente. Lass Dir mal in der Sub ausgeben, was in $data landet.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  sub verarbeiten { # Listenkontext; erstes Element von @_ landet in $hRef my ( $hRef ) = @_; for my $key ( keys %$hRef ) { # tu was } } my $data = readDB(); verarbeiten( $data );
  
  edit: minor fixes.
  Last edited: 2010-11-26 16:57:29 +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!
  - +3 replies
  - Gast tcict
    
    2010-11-26 17:19
    
    Danke für die Antwort.
    Das habe ich auch schon versucht gehabt und immer einen Fehler bekommen.
    Can't use string ("2") as a HASH ref while "strict ref etc...
    
    Darum bin ich nicht darauf gekommen das es mein Fehler war ich habe im Sub vergessen die Variablen mit my zu deklarieren. Es ist wohl Zeit das ich langsam fertig mache und das Wochenende geniesse. Dann kommt es nächste Woche wieder besser.
    
    Noch mals danke für die schnelle Antwort :-)
    Gruss
    tcicit
    Last edited: 2010-11-26 17:23:30 +0100 (CET)
    - +2 replies
    - pq
      
      2010-11-26 17:29
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      Guest tcict
      Danke für die Antwort.
      
      ich sehe sogar 2 =)
      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
      - bianca
        
        2010-11-26 20:58
        
        User since
        2009-09-13
        6978 Artikel
        BenutzerIn
        
        2010-11-26T16:29:11 pq
        ich sehe sogar 2 =)
        
        Er/sie meinte "danke für die Lösung" und das war nur eine in diesem Fall.
        10 print "Hallo"
        20 goto 10

View all threads created 2010-11-26 16:37.