Arrayreferenz in Hashreferenz für Subroutine (gelöst) (Allgemeines zu Perl)

[thread]16712[/thread]

Arrayreferenz in Hashreferenz für Subroutine [gelöst]

Tags: perl5 Subroutinen Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+10 replies
Pauline25

2011-09-09 16:38
User since
2011-08-03
13 Artikel
BenutzerIn
Hallo zusammen.

Habe mir gerade mein Script etwas verschachtelt, weil ich ne Subroutine erstellen musste. Kurze Vorgeschichte:
Ich habe eine Textdatei ausgelesen und aus dieser Informationen in einen Hash gepackt. Als Schlüssel dient jeweils ne Zahlenfolge, die Values sind in einem Array gespeichert und werden dem Hash als Arrayreferenz übergeben:
Code (perl): (dl )

$hash{$key} = [ @array ];
den Hash habe ich am Ende als return Wert an eine Subroutine übergeben
Code (perl): (dl )

1 2 3

sub dateilesen { ....... \%hash; }
So, bis dahin hat alles funktioniert. Jetzt möchte ich die Subroutine aufrufen und mir über print den return Wert, also den Hash ausgeben lassen. Zudem sollen dabei die keys nach dem 1. Arrayelement (numerisch) sortiert werden. Vor der Übergabe der Hashreferenz an die Subroutine hab ich das so gemacht:
Code (perl): (dl )

1 2 3 4 5 6 7 8

foreach my$key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]}keys%hash) { print "$key: "; foreach my $val (@{$hash{$key}}) { print "$val "; } print "\n"; }
Kann mir jemand sagen, wie ich diese sortierte Ausgabe jetzt mit den beiden Referenzen hinbekomme?
Grüße!
- +9 replies
- moritz
  
  2011-09-10 14:51
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Wenn ich dich richtig verstanden habe, musst du einfach den Aufruf wie folgt schreiben:
  
  Code (perl): (dl )
  
  my %hash = %{ dateilesen() };
  
  Dann sollten die beiden Teile zusammen passen.
  Perl 6 - Perls Zukunft
  - +8 replies
  - Pauline25
    
    2011-09-12 09:09
    User since
    2011-08-03
    13 Artikel
    BenutzerIn
    
    Hallo.
    
    Wenn ich das jetzt richtig verstanden habe, meinst du so:
    
    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
    
    use strict; use warnings; #!usr/bin/perl print "here I start \n"; do "Datei_mit_Subroutine.pl"; my %hash = %{dateilesen()}; print "here is the return value of dateilesen:\n"; foreach my$key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]}keys%{$hash}) { print "$key: "; foreach my $val (@{$hash{$key}}) { print "$val "; } print "\n"; }
    
    Damit bekomme ich eine leere Ausgabe. Weiß jemand, was ich vergessen / falsch habe?
    
    Lieben Dank und viele Grüße
    - +7 replies
    - GUIfreund
      
      2011-09-12 12:58
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Hallo Pauline25,
      
      dein Programm bringt bei mir einen Syntaxfehler. So funktioniert's:
      
      Code: (dl )
      
      foreach my$key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]}keys %hash)
      
      Gruß
      
      GUIfreund
      Gruß
      GUIfreund
      - +6 replies
      - Pauline25
        
        2011-09-12 14:08
        
        User since
        2011-08-03
        13 Artikel
        BenutzerIn
        
        Hallo GUIfreund,
        
        stimmt was du sagst, leider klappt es immer noch nicht. Bekomme überhaupt keine Reaktion aufs Programm.
        
        LG
        
        +3 replies
        
        Gast wer
        
        2011-09-12 14:31
        
        Ist überhaupt in %hash drin was du erwartest?
        
        mach mal:
        
        Code (perl): (dl )
        
        1 2 3
        
        use Data::Dumper; print Dumper(\%hash);
        
        Last edited: 2011-09-12 14:38:30 +0200 (CEST)
        
        +2 replies
        
        Pauline25
        
        2011-09-12 15:14
        
        User since
        2011-08-03
        13 Artikel
        BenutzerIn
        
        Hey.
        
        Jo, mein Hash ist in Ordnung.
        
        topeg
        
        2011-09-12 20:31
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich sehe keinen Grund warum das nicht funktionieren sollte:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        #!usr/bin/perl use strict; use warnings; print "here I start \n"; do "Datei_mit_Subroutine.pl"; my %hash = %{dateilesen()}; print "here is the return value of dateilesen:\n"; foreach my $key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]} keys(%hash) ) { print "$key: "; print join(' ', @{$hash{$key}}); print "\n"; }
        
        oder:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        #!usr/bin/perl use strict; use warnings; print "here I start \n"; do "Datei_mit_Subroutine.pl"; my $hash = dateilesen(); print "here is the return value of dateilesen:\n"; foreach my $key (sort {$hash->{$a}->[0] <=> $hash->{$b}->[0]} keys(%$hash) ) { print "$key: "; print join(' ', @{$hash->{$key}}); print "\n"; }
        
        Ich habe es gerade ausprobiert. Mit
        
        Datei_mit_Subroutine.pl:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        #!usr/bin/perl use strict; use warnings; sub dateilesen { my %hash; $hash{a}=[0,'TEST1']; $hash{b}=[1,'TEST2']; $hash{c}=[2,'TEST3']; $hash{d}=[3,'TEST4']; return \%hash; }
        
        Ausgabe:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        here I start here is the return value of dateilesen: a: 0 TEST1 b: 1 TEST2 c: 2 TEST3 d: 3 TEST4
        
        +2 replies
        
        GUIfreund
        
        2011-09-13 13:14
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        Hier ist die Version, mit der ich getestet habe:
        
        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 25 26 27 28
        
        use strict; use warnings; #!usr/bin/perl print "here I start \n"; do "Datei_mit_Subroutine.pl"; my %hash = %{dateilesen()}; print "here is the return value of dateilesen:\n"; foreach my$key (sort {$hash{$a}->[0] <=> $hash{$b}->[0]}keys %hash) { print "$key: "; foreach my $val (@{$hash{$key}}) { print "$val "; } print "\n"; } sub dateilesen { my %hash; $hash{h12} = [qw/121 122 123/]; $hash{h15} = [qw/151 152 153/]; \%hash; }
        
        Die Ausgabe sieht so aus:
        
        Code: (dl )
        
        1 2 3 4
        
        here I start here is the return value of dateilesen: h12: 121 122 123 h15: 151 152 153
        
        Quote
        Jo, mein Hash ist in Ordnung.
        
        Dann weiß ich nicht, woran es liegen könnte. Ist das 1. Element in den anonymen Arrays wirklich numerisch?
        
        Ersetze doch mal deine sub dateilesen durch eine der hier geposteten Varianten.
        
        Gruß
        GUIfreund
        
        Pauline25
        
        2011-09-15 08:57
        
        User since
        2011-08-03
        13 Artikel
        BenutzerIn
        
        Hallo zusammen. Tut mir leid, dass ich mich nicht eher melden konnte, mein Rechner ist kaputt gegangen. Ich nehme an, dass das mit eurem Script deshalb nicht funktioniert hat, zumindest war dass das erste Anzeichen, dass mit dem Rechner was nicht stimmt. Der wird jetzt repariert (hoffe ich) und mit dem Ersatzlaptop, den ich jetzt endlich habe, funktioniert euer Vorschlag ganz wunderbar, war genau das, was ich gesucht habe. Ihr seid echt ne super Hilfe für Perl Anfänger. Vielen Dank noch mal und sorry, dass ich das Problem nicht eher erkannt habe.
        
        Liebe Grüße

View all threads created 2011-09-09 16:38.