Funktion mit mehr als zwei Rückgabewerte - möglich? (Allgemeines zu Perl)

[thread]18800[/thread]

Funktion mit mehr als zwei Rückgabewerte - möglich?

Tags: perl5 Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+6 replies
guest HoHoHo

2013-12-10 20:56

Hallo.

Kann eine Funktion auch mehr als zwei Rückgabewerte haben?

Ich bekomme es nur mit zwei hin. Ein dritter wird nicht mitgegeben.

Muss hier Hashes und Listen gearbeitet werden?

Gruß und Kuss,
HoHoHo
Last edited: 2013-12-10 21:07:17 +0100 (CET)
- betterworld
  
  2013-12-10 21:07
  
  User since
  2003-08-21
  2614 articles
  ModeratorIn
  
  Da gibt's sehr unterschiedliche Möglichkeiten.
  
  Zeig mal, wie du es mit zwei gemacht hast. Dann sagen wir Dir, wie Du das erweitern kannst.
  Und zeig auch gleich, was Du mit dreien schon versucht hast, denn es kann auch ein ganz anderer Fehler sein.
  Last edited: 2013-12-10 21:09:11 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
- Raubtier
  
  2013-12-10 21:13
  
  User since
  2012-05-04
  1083 articles
  BenutzerIn
  
  Zusätzlich zu Betterworlds Antwort: es gibt auch noch "wantarray", womit du unterscheiden kannst, ob die Funktion im Skalar- oder Listenkontext aufgerufen wurde. Du kannst also auch verschiedene Rückgabewerte haben, je nachdem, wie du aufgerufen wurdest.
- +3 replies
- guest HoHoHo
  
  2013-12-10 21:43
  Gut ich habe nun meinen Code in einem neuen Skript auf das wesentliche reduziert und mein eigentliches Problem ist ein Anderes.
  
  Ich gebe als zweiten und dritten Param. ein Array zurück. Das geht so nicht.
  
  Nun sind meinem Perl Kenntnisse nicht die besten und ich müsste (Morgen) nachlesen warum das so ist.
  
  Kann mit jemand von euch eine Lösung zeigen?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  #!/usr/bin/perl sub foo { my $a = "a"; my @b = ("b"); my @c = ("c"); return ($a, @b, @c); } my ($a, @b, @c) = foo; print "\@c "; print @c; print "\n"; print "\@b "; print @b; print "\n";
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3
  
  $ perl /tmp/foo.pl @c @b bc
  
  Mir wäre es wichtig zwei Arrays zurück geben zu können.
  
  Danke,
  HoHoHo
  Last edited: 2013-12-10 22:58:35 +0100 (CET)
  - +2 replies
  - jan
    
    2013-12-10 23:02
    User since
    2003-08-04
    2536 articles
    ModeratorIn
    
    Ja, das funktioniert nicht, denn es kommt dabei nur ein großer Array zurück und perl weiß nicht, welche Elemente aus dem ersten und welche aus dem anderen Stammen.
    
    Lösung: Gib Referenzen auf Arrays zurück und dereferenziere sie nach Bedarf.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl sub foo { my $a = "a"; my @b = ("b"); my @c = ("c"); return ($a, \@b, \@c); } my ($a, $b, $c) = foo; print "\@c "; print @$c; print "\n"; print "\@b "; print @$b; print "\n";
    
    Wenn Du willst, kannst Du sie auch vor dem Verarbeiten wieder in Arrays verwandeln:
    
    Code (perl): (dl )
    
    1 2
    
    my @b = @$b; my @c = @$c;
    
    und dann normal mit @b und @c weiterarbeiten. Gaaaanz sauber wäre dabei @{$b}, um vollkommen klar zu machen, dass $b die Variable ist. Wenn Du zum Beispiel einen hash of hashes hast, ist das nötig und sinnvoll:
    
    Code (perl): (dl )
    
    my @array = @{ $hash{'array'} };
    - guest HoHoHo
      
      2013-12-11 00:41
      
      Danke euch!
      
      War von Referenzen schon soweit weg, weil ich davon ausging für Threads müsste ich mit Kopien der Daten arbeiten. Aber es funktioniert auch mit Referenzen.
      
      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
      
      #!/usr/bin/perl use diagnostics; use threads; use warnings; sub loop_threads { foreach my $thr (threads->list){ my ($a, $ref_b, $ref_c) = $thr->join(); print "\@c "; print @$ref_c; print "\n"; print "\@b "; print @$ref_b; print "\n"; } } sub foo { my ($a, $b) = @_; my @c = ("c"); return ($a, $b, \@c); } my $a = "a"; my @b = ("b"); threads->create({'context' => 'list'}, \&foo, ($a, \@b)); loop_threads();
      
      Ausgabe:
      
      Code: (dl )
      
      1 2 3
      
      $ perl /tmp/foo.pl @c c @b b
      
      N8,
      HoHoHo
      Last edited: 2013-12-11 01:41:34 +0100 (CET)

View all threads created 2013-12-10 20:56.