caller() Referenz übergeben (gelöst) (Allgemeines zu Perl)

[thread]20184[/thread]

caller() Referenz übergeben [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+9 replies
bianca

2016-11-05 09:49
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Geht das hier auch in einer Zeile?
Code (perl): (dl )

1 2

my @c = caller(); name_der_sub(\@c);
Alle möglichen Versuche, wie z. B. \caller() oder @{caller()} usw. funktionieren hier in perl 5, version 18, subversion 4 (v5.18.4) built for MSWin32-x64-multi-thread nicht.

Wie lautet die korrekte Syntax?
Danke
10 print "Hallo"
20 goto 10
- +2 replies
- GwenDragon
  
  2016-11-05 11:14
  
  User since
  2005-01-17
  14760 Artikel
  Admin1
  
  caller liefert eine Liste.
  Also machs so:
  my (@caller) = caller;
  ...
  meine_sub (\@caller);
  
  Um was geht genau bei dir? Vererbung bei Packages? SUPER::...?
  
  Zeig bitte mal einen kurzen Schnippsel, der bei dir nicht geht.
  Last edited: 2016-11-05 11:20:51 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2016-11-06 06:51
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke dir GwenDragon.
    Lösung siehe unten.
    10 print "Hallo"
    20 goto 10
- +6 replies
- Raubtier
  
  2016-11-05 13:18
  
  User since
  2012-05-04
  1076 Artikel
  BenutzerIn
  
  Da name_der_sub offenbar eine Array-Referenz erwartet, musst du eine ebensolche auch liefern.
  
  Also name_der_sub([caller]);
  - bianca
    
    2016-11-06 06:50
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Das ist es. Vielen Dank!!
    10 print "Hallo"
    20 goto 10
  - +4 replies
  - GwenDragon
    
    2016-11-06 10:31
    User since
    2005-01-17
    14760 Artikel
    Admin1
    
    Wieso ist \@array nicht auch eine Lösung?
    Es liefert doch auch eine Array-Referenz.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10
    
    my (@rara) = ( 1, 2, 4 ); sub ra { my $r = shift; say ref $r; } ra( \@rara ); ra( [12] );
    
    ergibt:
    
    ARRAY ARRAY
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - Raubtier
      
      2016-11-06 10:52
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Weil Binanca explizit nach der Syntax für "eine Zeile" gefragt hatte. Gemeint war eine Lösung ohne zusätzliche Variable. Denn die Lösung mit der zusätzlichen Variablen @c hatte Bianca doch schon in der Frage angegeben.
      - GwenDragon
        
        2016-11-06 11:37
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Ok, ich hatte das dann für mich falsch aufgefasst.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2016-11-06 13:59
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja. Genau das meinte ich.
        
        Danke euch beiden nochmal!
        10 print "Hallo"
        20 goto 10

View all threads created 2016-11-05 09:49.