Die letzte Zeile ist immer der return (gelöst) (Allgemeines zu Perl)

[thread]20398[/thread]

Die letzte Zeile ist immer der return [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+7 replies
rosti

2017-12-06 17:27
User since
2011-03-19
3194 Artikel
BenutzerIn
Eine hash-Ref wird jedoch nur zurückgegeben, wenn return notiert ist:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

sub href{ return{('key','val')}; } sub aref{ ['key','val']; } print Dumper href(), aref();
Warum ist das so? Ein Bug vielleicht? Bitte mal um Hinweise.
- +4 replies
- Linuxer
  
  2017-12-06 17:53
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Vielleicht, weil es ohne weiteren Kontext uneindeutig ist.
  
  {} könnte auch als Block gemeint sein....
  
  Durch ein return {} wird's dann eindeutig.
  
  PS: Lass die Runden Klammern im Hash weg...
  
  Code: (dl )
  
  1 2 3 4 5
  
  perl -E "sub foo { { ('key', 'value') } }; say foo(); " keyvalue perl -E "sub foo { { 'key', 'value' } }; say foo(); " HASH(0x4592f8)
  
  (getestet mit einem perl v.18.0 auf Win7)
  Last edited: 2017-12-06 17:56:46 +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
  - rosti
    
    2017-12-06 20:42
    User since
    2011-03-19
    3194 Artikel
    BenutzerIn
    
    Ahaa, danke, {} als BLock, das ist es. Aufgefallen ist mir das hier:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    # Wochentag numerisch {num}, # abgekürzt{abb}, voll{full} sub wd{ my $self = shift; my $day = shift; my $month = shift; my $year = shift; return {split /\s+/, strftime( 'num %w abb %a full %A', 0, 0, 0, $day, $month-1, $year-1900 )}; }
    
    da kommt ohne 'return' das ganze Array statt Hashreferenz. MfG
    - +2 replies
    - Linuxer
      
      2017-12-06 22:30
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Alternativ ginge wohl auch ein vorangestelltes Plus.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      sub wd { my $self = shift; my $day = shift; my $month = shift; my $year = shift; +{split /\s+/, strftime( 'num %w abb %a full %A', 0, 0, 0, $day, $month-1, $year-1900 )}; }
      
      Aber da finde ich das return besser.
      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!
      - rosti
        
        2017-12-07 09:56
        
        User since
        2011-03-19
        3194 Artikel
        BenutzerIn
        
        Hi nochma Danke;
        
        der Witz ist ja der, daß ich sehr oft do{} oder eval{} Blöcke im return habe was mir stets die letzte Anweisung liefert aber nie darüber nachdenken musste was zu tun ist, damit es eine Hashreferenz wird ;)
- +2 replies
- GwenDragon
  
  2017-12-06 17:58
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Kannst doch eh die Klammer weglassen.
  
  ODer fatcomma nehmen.
  T:> perl -E "sub zett { {12=>99} }; say zett()" HASH(0x2e4aa54)
  Last edited: 2017-12-06 18:00:02 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - rosti
    
    2017-12-07 10:18
    
    User since
    2011-03-19
    3194 Artikel
    BenutzerIn
    
    Ja, klar. Aber wirklich interessant wirds ja erst wenn man den Interpreter dazu bringt selbst zu erkennen daß er aus einem Array eine Hashreferenz machen soll ;)
    
    Grüße an Alle.

View all threads created 2017-12-06 17:27.